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MRPHOD MTO APPAR ATUS FOR TRMTSMITTINQ CODBD APPIO 
r flimiAM THROUGH A TRANSICTSaiOH CHaSSEIi 
WTTH I,Iia:TED BANDWIDTH ' ./ • 

REIATED APPLICATION 

The present application relates to co-pending PCT 
application PCT/US96/d4974 , filed April 10, 1996, 
entitled "System For Coiii5>ression and Decompression of 
Audio Signals For Digital Transmission^ by the same 
inventor and assigned to the Assignee of the present 
application. The cb-pending PCT application noted abQve 
is incorporated by reference in its entirety along with 
any appendices and attachments thereto. 

FIELD OF THE INVENTION 
The present invention relates generally to an 
apparatus and method for transmitting audio signals and 
pertains, more specifically, to an apparatus and method 
for transmitting a high quality audio signal, such as 
wideband speech, through a transmission ch2tnnel having 
a limited bandwidth or transmission rate. 

BACKGROUND O F THE INVENTION 

Human speech lies in the frequency range of 
approximately 7 Hz to 10 kHz. Because traditional 
telephone systems only provide for the transmission of 
analog audio signals in the range of about 300 Hz to 
3400 HZ or a bandwidth of about 3 kHz (narrowband 
; speech) , certain characteristics of a speaker's voice 
• are lost and the voice sounds somewhat muffled. A 
telephone system capable of transmitting an audio signal 
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approaching the quality of face-to-face speech requires 
a bandwidth of about 6 kHz (wideband speech) . 

Known digital transmission systems are capable of 
transmitting wideband speech audio signals. However, in 
5 order to produce ah output audio signal of acceptable 

quality with a bandwidth of 6 kHz,, these digitjal siystems 
require a transmission channel with a transmission rate 
that exceeds the capacity of traditional telephone 
lines. A digital system transmits audio signals by 
iO : / coding an input audio signal into a digital signal made 
up of a sequence of binary numbers or bits, transmitting 
the digital signal through a transmission channel/ and 
decoding the digital signal to produce an output audio 
signal. During the coding process the digital signal is / 
15 reduced or compressed to minimize the necessary 

transmission rate of the signal. One known method for 
compressing wideband speech is disclosed in 
Recommendation G. 722 (CCITT, 1988) . A system using the 
compression method diescribed in G. 722 still requires a 
20 - transmission rate of at least 48 kbit/s to produce 

: wideband speech of an acceptable quality. 

Because the maximum transmission rate over 
traditional telephone lines is 28.8 kbit/s using the 
most advanced modem technology, alternative transmission 
25 channels such as satellite or fiber optics would have to 

be used with an audio transmission system employing the 
data, compression method disclosed in G.722. Use of 
these* alternative transmission channels is both 
expensive and inconvenient due to their limited 
30 ; availability/ While fiber optic lines are available, 

traditional copper telephone lines now account for an 
overwhelming majority of existing lines and it is 
unlikely that this balance will change aiiytime in the 
near future. A digital phone system capable of 
35 transmitting wideband speech over existing transmission 

rate limited telephone phone lines is therefore highly 
• desirable-. 
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" OBJECTS OF THE INVENTION 
The disclosed invention has various embodiments 
that achieve one or more of the following features or 
■■ objects:' ' ; 

An object of the present: invention is to provide 
for the transmission of high quality wideband speech : 
oyer existing"' telephone networks.^;' 

A furtiier object of the present invention is to 
^ provide for the transmission of high quality audio 
signals in the range of 20 Hz to at least 5,500 Hz over 
: existing telephone networks. 

A still furthiar object of the present invjention is 
to accomplish data compression oh wideband speech 
signals to produce a transmission rate of 28 . 8 kbit/s or 
less without significant loss of audio quality. 

A still fxirther object of the present invention is 
to provide a device which allows a user to triansmit and 
: receive high quality wideband : speech and audio over 
existing telephone networks. 

A still further object of the present invention is 
to provide a portable device which is convenient to use 
and allows ease of connection to existing telephone 
/ networks. " 

A still fxxrther object of the present invention is 
to provide a device which is econoinical to manufacture. 

: A still further object of the present invention is 
to provide easy and flexible programmability. 

SUMMARY OF THE INVENTION ^ : 

In accordance with the present invention; the 
disadvantages of the prior art have been overcome 
; ' providing a digital audio transmitter system c^^ 

transmitting high quality, wideband speech over a 
transmission channel with a limited bandwidth such as a 
i traditional telephone line. y 

More particularly, the digital audio transmitter 
system of the /present invention includes a coder for 
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coding an input audio signal to a digital signal having 
. a transmission rate that does not exceed the maximiua 
allowable transmission rate for traditional telephone 
lines arid a decoder for decoding the digital; signal to 
5 V provide an output audio signal with an audio bandwidth 

of wideband speech. A coder and a decoder may be 
provided in a single device to allow two-way 
communication between multiple devices. , A device 
containing a coder and a decoder is commonly referred to 
10 as a CODEC (COder/DECoder) . 

These and other objects, advantages and novel 
: features of the present invention, as well as details of 

an illustrative embodiment thereof / wiir be more fully 
understood from the following description and from the 
IS drawings.-', 

BRIE^ DESCRIPTION OF THE DRAWINGS 
Fig. 1 is a block diagram of a digital audio 
transmission system including a first CODEC and second 
CODEC in accordance with the present invention- 
.20 Fig. 2 is a block diagram of a CODEC of Fig. l. 

Fig. 3 is a block diagram of an audio input/output 
"''circuit of "a CODEC. 

. Fig. 4 is a detailed circuit diagram of the audio 
: input portion of Fig. 3. 
25 . Fig. 5 is a detailedi circuit diagram of the level 

^ LED' s .portion of Fig"...- 3-.^ ■ ■ 

Fig. 6 is a detailed circuit diagram of the 
headphone iamp portion of Fig. 3. 

Fig. 7 is a block diagram of a control processor of 
".30 ■ * ■ /a CODEC./. 

Fig. 8 is a detailed circuit diagram of the 
microprocessor portion of the control processor of Fig.. 

Fig. 9 is a detailed circuit diagram of the memory 
35 portion of the control procesisor of Fig. 7, 

SUBSTITUTE SHEET PLE 26) ^ 



Fig. 10 is a detailed circuit diagram of the dual 
T XJART portion of the control processor of Fig. 7* 

Fig. 11 is a detailed circuit diagram of the 
keypad, LCD display and interface portions of the 
5 control processor ; of.; Fig.. 7-. ■ . 

ifig. 12 is a block diagram of an encoder of a 

CODEC. 

Fig. 13 is a detailed ; circuit diagram oi the 
encoder digital signal processor, and memoi^r portions of 
10 the encoder of Fig. 12. Fig. 14 is a detailed 

circuit diagram of the clock generator portion of the 
■ . encoder, of Fig. 12* ' ' 

Fig. 15 is a detailed circuit diagram of the Reed- 
Soloman encoder and decoder portions of Figs. 12 and 16. 
3^5 Fig. 16 is a block diagram of a decoder of a CODEC. 

Fig. 17 is a detailed dircuit diagram of the 
encoder digital signal processor and memory portions of 

the .dec:oder"'6f. Fig.". 16.: • • . 

Fig* 18 is a detailed circuit diagram of the clock 
20 V generator portion of the decoder of Fig. 16. 

Fig. 19 is a detailed circuit diagram of the 
analog/digital converter portion of the encoder of Fig. 

. ';" ... V;.' -12. - ■ ' - ■ 

Fig. 20 is a detailed circuit diagram of the 
25 digital/analog convert-w: portion of the decoder of Fig. 

" ■ ■•" ■■;i6.:'">, ■ :: • ■ ' ' ■■ ■ ; ' 

DgrATLED nTtSCRTPTION OF THE PREFERR ED EMBODIMENT 
A digital audio transmission system 10, as shown in 
'Fig. 1/ includes a first CODEC (COder/DECpder) 12 for 
30 transmitting and receiving a -wideband audio signal such 

as wideband speech to and from a second CODEC; 14 via a 
traditional copper telephone line 16 and telephone 
■ ■y-:':, '/^'--- When transmitting a:n audio signal^ the 

first CODEC 12 performs a coding process on the input 
35 analog audio signal which includes converting the input 

audio signal to a digital signal and compressing the 
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digital signal to a transmission rate of 28,8 kbit/ s or 
less. The preferred embodiment compresses ttie digital 
using a modified version of the ISO/MPEG (International 
Standards Organization/Motion Picture Expert Groups) 
5 compression scheme according to the software routine 

disclosed in the microfiche software appendix filed 
herewith* The coded digital 'signal i sent using 
standard modem tebhnology via the telephone line 16 and 
telephone network 17 to the siacond CODEC 14. The second 

10 CODEC 14 performs a decoding process on the coded 

; digital signal by correcting transmission errors/ 
decompressing the digital signal and reconverting it to 
produce an output analog a\xdio signal. ; 

Fig. 2 shows a CODEC 12 which includes an analog 

15 mixer 20 for receiving, amplifying, and mixing an input 

audio signal through a number of input lines. The input 
lines My include a MIC line 22 for receiving an analog 
audio signal from a microphone -and a generic LINE 24 
input for receiving an analog audio signal from an audio 

20 playback device such as a tape deck. The voltage level 

of an input audio signal on either the MIC line 22 or 
the generic LINE 24 can be adjusted by a user of the 
CODEC 12 by adjusting the volume controls 26 and 28. 
When the analog mixer 20 is receiving an input signal 

25 through both the MIC line 22 and the generic LINE 24 > 

the two signals t^ill be mixed or combined to produce a 
single analog signal. Audio level LED' s 30 respond to 
the voltage level of a mixed audio signal to indicate 
when the voltage exceeds a desired threshold level. A 

30 more detailed description of the analog mixer 20 -and 

audio level LED's 30 appe£a:s below with respect to Figs. 
•■;*-;3 and 4.;:'' '".^ \ • . 

The combined analog signal from the analog mixer, 20 
is " sent to the encoder 32 where" the analog signal is 

35 first converted to a digital signal. The samipling rate 

used for the analog to digital conversion is preferably 
one-half the transmission rate of the signal which will 
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V ; - ultimately be transmitted to the second CODEC i4 (shown . 
in Fig. l) . After analog to digital conversion, the 
■ ' digital, signal is then compressed using a modified 

of the ISO/MPEG algorithm. The IsO/MPEG 
5 / compression/ algorithm is modified to produce a 
transmission rate of 28.8 kbit/s. This is accomplished 
\ : ^/ ■ ■ ■ ■ '-^[y ■■'..'toy. the software ^ routihe\ that is disclosed in the ■ ; 
" •:/> -software' appendix .. , 

' The'"6bmpressed 'digital signal; from the • encoder. '.32 
10 is then sent to an error protection processor 34 where 

additional error protection data is added to the digital 
signal, A Reed-Solomon error protection format is used 
by the : error protection processor 34 to provide bpth^^ ^ ^ 
burst and random error protection. The error protection 
15 processor 34 is described below in greater detail with 

:■ "- respect- to Figs. ' 12 and 15. 

The compressed , and error protected digital signal 
. is then sent to an analog modem 36 where the digital 
signal is converted back to an analog signal for 
20 . transmitting. As shown in Fig. 1/ this analog signal is 
sent via a standard copper telephone line 16 through a 
telephone network 17 to the sebohd CODEC 14. The analog 
modem 36 is preferably a V.34 synchronous modem, . This 
type of modem is commercially available.; 
25 The analog modem 36 is also adapted to receive an 

incoming analog signal from the second CODEC 14 (or 
another CODEC) and reconvert the analog signal to a 
digitial signal. This digital signal is then sent to an 
error correction processor 38 where error correction 
30 according to a Reed-Solomsm format is performed. 

The . corrected digital signail iis then sent to a 
. - decoder 40 whiare it is decompressed using the modified 
:.. version' of the ISO/MPEG algorithm as disclosed' in the 
: ' y'- [^ y.-/-\/ software: appendix. After, decompression the digital 
>. 35 . signal is converted to an analog audio signal, A more 

detailed description of the decoder 40 appears below 
: with respect to Pigs. 7; 16, 17 and 18, The analog 
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audio signal may then be perceiv«<i ^ ^ser of the 
CODEC 12 by routing the analog audio signal through a 
headphone amp 42 wherein the signal is amplified. The 
volume of the audio signal at the headphone output line 
5 .44 is controlled by volume control 46, * ■* 

The CODEC 12 includes a control processor 48 . for^ 
controlling the various functions of the CODEC 12 r 
^ - according to software routines stored in memory 50. ift 

/more detailed description of structure of the 

10 : control processor appears fae low with respect to Figs. 7, 

8, 9, 10, and 11- one software routine executed by the 
- control processor allows the user of the CODEC 12 to 

initiate calls and enter data such as phone numbers. 
When a call is initiated the control processor sends a 
15 signal including the phone number to be dialed to the 

analog modem 36^ Datat entry is accomplished via a 
kjsypad 52 and the entered data may be monitored by 
obseirvation of an LCD 54. !i»ie keypad 52^^^a 
keys for selecting various modes of operation of the 
26 CODEC 12. For example, a user may select a test mode 

wherein the control processor 48 controls the signal 
; path of the output of the encoder to input of decoder to 
bypass the telephone network allows testing of 
compression and decompression algorithms and their 
related hardware Also stored in memory 50 is the 
j compression algorithm executed by the encoder 32 and the 
decompression algorithm 'executed by the decoder 40. 

Additional LED' s 56 are controlled by the control 
, . 'processor 48 and may indicate to the user information 
30 ■•■such as "bit synchronization" (achieved by the decoder) 
or "power on". An external battery pack 58 is connected 
; ; ; to the CODEC 12 for sxipp 

Pig. 3 shows a lower level block diagram of the 
i V a^^ mixer 20/ - audio; lev^ 30 and analog. 

.35 - i headphone amp 42 as shown in Fig. 2.: Figs. 4, 5 

are the detailed circuit diagrams corresponding to Fig . 
. ■ 3. ■■■ ■ ■■ ^" - . "-■ • :•' ■■ 



25 
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Referring to Fig. 3 Vand 4, line input 210, is an 
: incoming line level input signal while mic input 220 is 
the microphone level input. These signals are amplified 
by a line amp 300 and a mic amp 302 respectively and 
5. ^^^^^^ ; levels are aid justed by line level control 304 and 

mic level control 306 respectively. The microphone and 
• line level inputs are fed to the input mixer 308 wheire 
; they are nixed and the . resulting combined audio input 
signal 310 is developed. 
10. , : Referring now to Figs. 3 and S.V the audio input , 

signal 310 is sent to the normal and overload signal 
detectors, 312 and 314 respectively, where their level '■ 
is compared to a normal threshold 316 which def ines ; a 
normal: volume level and a clip threshold ; 318 which 
15 defines an overload volume level, When the audio input 

signal 310 is at a normal volume level a NORM LED 320 is 
lighted. When the audio input signal 310 is at an 
overload volume level a CLIP LED 322; is. lighted. 

Referring now to Figs, 3 and 6, the audio input 
20 signal 310 is fed into the record monitor level control 

324 , where its level is ad justed before being mixed with; 
. the audio output signal 336 from the digital/analog 
converter . 442 (shown in Fig. 16 and 20). The audio 
output signal 336 is fed to the local monitor level 
25 : control 326 before it is fed into the headphone mixer 

\ / amplifier 334. The resulting output signal from the 
; headphone mixer amplifier 334 goes to a headphone output 
connector 338 on the exterior of the CODEC 12 where a^ 
. pair of headphones may be connected. 
30 : The audio input signal 310 and audio output signal 

336 are fed to record mix control 328 which is operable 
by the user. The output of this control is fed to a mix;, 
level control 330 (also operable by a user) and then to 
the recorci output amplifier 332. The resulting output 
35 . signal of the record output £uaplifier 332 goeis to . a 

record output 340 on the exterior of the CODEC 12. 
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Fig. 7 shows a lower level block diagram of the 
control processor 48 (shown in Fig. 2) . The encoder 406 
(referenced as number 32 in Fig. 2) is further described 
in Fig. 12 while the decoder 416 (referenced as number 
5 40 in Fig. 2) is refined in Fig. 16. Figs. 8, 9, 10, 

11, 13; 14, 15, 17, 18, 19 and 20 are detailed circuit 
diagrams.'. -''-^ ^ --^ - y' : 

: Referring ^ 7 and 8 the microprocessor 400 

is responsible for the communication between the user, 
10 via keypad 412 and LCD display 414, and the CODEC 12^ 

The keypad 412 is used to input commands to the system 
while the LCD display 414, is used to display the 
responses of the keypad 412 commands as well as> alert 
messages generated by the CODEC 12. 
15 Referring now to Figs. 7 and 9, the RAM (random 

access memory} 402 is used to hold a portion of the 
control processor cphtrol software routines. The flash 
ROM (read only memory) 404 holds the software routine 
(disclosed in the sof tweore appendix) which controls the 
.20 modified ISO/MPEG compression scheme performed by 

encoder DSP 406 and the modified ISO/MPEG decompression 
scheme performed by the decodier DSP 416, as well as the 
remainder of the control prociessor control software 

■ routines.- • 

25 Referring now to Figs. 7 and 10, the dual UART 

■ (universal asynchrpnouis recieiver/transmitter) 408 is 
used to provide asynchronous input/ output for the 
control processor 48 . The rear panel remote control 
port 409 and the rear p€mel RS232 port 411 are used to 

30 allow control by an external computer. This external 

control can bia used in conjunction with or instead of 
the keypad 412 and/or LCD display 414. 

Referring now to Figs .: 7 and li ^ the programmable 
interval timer circuit 410 is used to interface the 
35 . " control processor with the keypad and LCD display. 

Referring now to Figs. 7, 8 and 13, the encoder DSP 
(digital signal processor) 434 receives a digital pulse 

; suBsrm^ 
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codiB modulated signal 430 from the analog/digital 
converter 450. The encoder DSP 434 performs the 
modified I scheme according to the 

software rotitine (d^ in the software ^ appendix):; 

5 stored in BAM metmory .436 to produce a digital output 

■■418... " \ ' v,: -v ^ ■ '[. ' 

The A/D clock generation unit 439 is shown in Figs. 
12 and 14. The fiinction of this circuitry is to provide 
all the necessary timing signals for the analoig digital 

10 converter 450 and the encoder DSP 434. 

The Reed-Solomem error correction encoding 
circuitry 438 is shown in Figs. 12 and 15. The function 
of this unit is to add paurity information to be used by 
the Reed-Soloman decoder 446 (also shown in Fig. 16) to 

15 repair any corrupted bits received by the Reed-Soloman 

decoder 44(6. The Reed-Soloman corrector 438 utilizes a 
shortened Reed-Soloman GF (256) code which might contain, 
for example, code blocks containing 170 eight-bit data, 
words and 8 eight-bit parity words. 

20 Referring now to Figs. 7 , 16 and 17, the deicoder 

DSP 440 receives a digital input signal 422 from the 
modem 36 (shown in Fig. 2) . The decoder DSP 440 
performs the modified ISO/MPEG decompression scheme 
according to the software routine (described in the 

25 software appendix) stored in RAM memory 444 to produce 

.. a digital output to be sent to the digital/ analog 
converter .442 . ' 

: The D/A clock generation unit 448 is shown in Figs. 
16 and 18. The function of this circuitry is to provide 

30 all the nepessary timing signals for the digital/analog 

converter 442 and the decoder DSP 440;. 

The analog/digital converter 450, shown in Figs. 12 
and 19 , is used to convert the analog input signal :310 
into a PCM digital signal 430. 

35 The digital/ analog converter 442 , shown in Figs> 16 

. and 20 is used to convert the PCM digital signal from 
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the decoder DSP 440 into an analog audio output signal 

y ; 336w; ;.' . .V;....- ' •'.'*•" 

The Reed-Soloman error correction decoding 
circuitry 446, shown in Figs. 15 and 16/ decodes a Reed-* 
5 Soioinan coded signal to correct errors produced dtiring 

transmission of the signal through the modem 36 * (shown 
.in'\Fig.- 2). 'and - telephone - network. ; 

/Another function contemplated by this invention is 
to allow real time/ user operated adjustment of a number 
10 . of psycho-acoustic parameters of the ISO/MPEG 

compression/decompression scheme used by the CODEC 12. 
A manner of implementing this function is described in 
applicant's application entitled "System For Adjusting 
Psycho-Acoustic Parameters In A Digital Audio Codec" 
15 which is being filed concurrently herewith (such 

appiicatioii and related ; Software Appendix are hereby 
■ incorporated by reference). Also, applicants 

V application entitled "System For Compression And 
Decompression Of Audio Signals For Digital Transmission" 
20 and related Software Appendix which are being filed 

concurrently herewith are hereby incorporated by 
reference. ■■ * 

This invention has been described above with 
reference to a preferred embodiment. Modifications and 
25 variations may become apparent to one skilled in the art 

upon reading arid Understanding this specification. It 
is intended to include all such modifications and 
alterations within the scope of the appended claims. 
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' •ic: :993. Copyrigiic- Corpora-e Compvter Systen^^ All rign-s ■reserves. 

. ;},-\bCCST\def.'.«B» ' f- 

file Mtvtains ' the definir ions for various structures. 

■•'■ The following is the miainmm value for sib: The '' - ' 

:S!r e«uBes some computational dif f iculities so -120 dh is used. The .. • 
I .^!«Sm 5^!«ni"-23) ,i8 about -138 db so ; there . is some room left below . 
.. -120. db . ■ :"■ 

, '■ ; define MIITOB ; :.. V > 'ilS S- tS ^iS's' ' ^ 

; ; define MINDB. -73' . . •;-120,dB -lit slb.s ..... 

■ ; Define the 10 for the watch dog timer for bit set and bit clears y.-. 

; define WATCK.DOG; . •«7.x:«SFFE4:' ' ; M.PBD bit 7 .watch dog time: 

.. ; The iEollowinc defineis the sampling rate* ■ 

■ define SAM32K '[ • 0 • . • . : sa«pl ing rate of 32 kHz •.■ 

.. define SAM48K . . ■.'l' ■. tsBwpi.xnq 48.1tHr 

■••'■■■''"•'define SAM16K ■ ' '2^} ' ' ;M«pling rate of;.l4.4 Wjz 

define SAM24X ; ; • 'a' ■, '"«Pl"3. .^l W'tJ^^. . v .. . 
^«fin<. SAMiSK . '2' ; sampling rate ef 16 KHz 

; . d^fiSr S^2« . ., ...-S': ;sampling rate of 24 KHZ . . 

/''■"•■Refine SAM441K \- [: ,: jsampling «te. of 44 .1 JtHz ; ; 

•■-''"•Refine -SWmPE..--. r-'V^^ ;»« the^.ampling rate.to 14 .4 kHz .V 

;'!:!2B.8 ' ' ■. / ■ . "'■■■■•.'■ 

.' ■; The fsllowing defines various parameters 

• define NUMPFFt; ' ' ' ' ; / .:'1024'^ ;nu«ber of' points used' by the £ft •• 

• The following define, the types of maskers, 
; ETOMSKK is nit counted, in the amaskers 90unt. 

■■ ■■■■■■ A^fUm BEUrrEDMSKR 'O-: . ; the masker type of deleted. 

SoSmT --Che masker type of non-tona.. 

A^Y^l TO^ ^ ^ •2' .-the masker type of tonal 
: ;^fS: SSSwi .; • V , ;the last masker, in the^array . ., 

■'• • The following define a tonal structure. , ....^ 
••. This structure occupies both, x an y memory (1. .. 

^»fi„- tomai^SSIZE' • 'i'.-: ■ ; length of the structure 

.. ■ : : M : :-he .max.««. number cf tor.a.s 

. ■■.■; The following define chi'iiynsv^fo J^g.^^^^ 

■ • ; .be in genera: : any NSWC bits^ T^^^ uses i2 I's as , 

•;• justified and xs used to isolate wne . sync ww*- , . 
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Che sync word. 



define SVKC 
define. SYNCMSK 
define NSYNC. 



'SOOOf ff • 
'SOOOf ff ' 
•12* 



;sync pattern lefz just-ifed 
;mas)c high order from getvalue 
. ;len sync, word (hdr bits O-.ll) 



24 bits are used: 



For £r..lng putpoie« by t». a.ccd.r>»d A»p»d<l.d fr™.. 

the constant 'C (llOO) ;. . ■ . 

y skip over the next 4 bits of the fraihe header that are reserved • 

the next^rbS ^01)''orthe frame header . that represent sampling rate: 
'Ol'> - -4B' K: sampling rate- 
• '10' "-"32; K "saimpling: rate".'..''-\ 



; ! * *28.8 



'00' 
'00* 
'11' 
»00' 



24 K sampling rate. (14 .4 K rate) 
. 16 K sampling rate 114 . 4 . K rate) 
24 K sampling rate 
16 K sampling rate 



. ! l !2B.8 _ 2 constant 0 bits of the frame header. \,^a 

: The IwcSIk musfclntSL CO Che right justified framing sync patcern xs used 



to isolate che sync word. 



!28.8 



•28. e 



define: FRAMESVNO^'^ 

define FRAMESYNC^32K 

define. FRAMESYNC:_2 4 K 

define- FRAMESYNC_24K 

define FRAMESYNC_1€K 

define FRAMESVNC.lfiK 

'define FRAMENSYNC 

define FRAMESWCMSK 

define GETSYNOiSK 



•Sff fcQ4' 
'SfffcOS* 

'SfffcOC: 
>$fffc00' 
•$fffc00'. 
'$fffcOO' 

•24' 

'SffffOf '. 
'.SOOOfff ' 



;sync pattern for 4 8 
;Bync pattern for 32 

; sync pattern for 24 
; sync pattern - 14.4. 
; sync pattern - 14.4 
;sync pattern for 16 



sampling 
sampling . 



K sampling 
K sampling 
K sampling 
K sampling 



;len sync wordi" (hdr bits 0-23) 
;maslt reflect framing sync ptn 
; mask high order from getvalue 



The following define the number /of bits used by the fixed part of the ^ 
MUSICAM frame. . . 



define NSYST 



•20' 



..•length of the system info header 



-define the use of protection check >u«n or not 



'0* 
'1' 



define CRC NO^PROTECT 

define CRCIpROTECT 

define NORCBITS ; 

define MASKCRC ; . . 

define: CRC.StW.BIT^OFFSET 

" define • CRC VALUE " ' S800500 

tltlll ScISTORED^BIT.OFFSET 



• 16 ' 

'SOOffff ' 



'16' 



> protection does not apply 
; protection applies 

; 16. bit check sum . ; ■ 

;mask high order from getvalue 

; 16th bit offset start at bit rate 
; to calculate checksum 
'; checksum divisor. 
'16' ; bit offset to store checksum 
. ; following the 32 bit header 



define che number of ^bics co b^^ ct^BU^ 
" for Che header and.the checksum itself . . ^ .. 
■ for one channel. in mono.' 
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.define, 
define 



CKC aiTS A 



•32' 
•142^ 



incl bics from hdr checksum 
inci bits per used channel: 
BALS - 88, SBicS- 54 . 



code for the new ISO -frame header (these are coded as left justified) 



define SYSTHDR 1_N0 PROT '$00OOOd' ; bits 12-15: 

define SYSTHDR"! N0'"PR0T LOW . 'SOOOOOS', .; bits 12-15:. 

define SYSTHDR^iIpROTECT" . 'SOOOOOC ; bits. 12-15: 

define SYSTHDR 1 PROTECT liOW rSC60004' . ;• bits 12-15: 



llCl 
. 0101 
1100 
0100 



(4 bits) 

(4 bits'/. 

(4 bits) 

(4 bits)'! 



define SYSTHDR.2 



' $000000 ' 



hdr bits 22-23: 



00 



(2 bits) 



;use Copyright bit to imiicate to decoder if CCS compression, applies: 
; ' bit 28: 0 means NO' CCS compression 

1 means audio coded. with CCS compression 



define 
define 



SYSTHDR 3 NO CCS COMPRESS 
SYSTHDR"3"CCS COMPRESS . 



'$000000' 
'$000006' 



bits 28-31 :000C i<} 
bits 28-31:1000 (4) 



define NSYSTHDR 1 • '4' ... 

define NSYSTHDR22 '2' . 

define NSYSTHDR 3 ; *4* 

define. MASKSYSTKDR l 'SOOOOOf 

define MASKSYSTHDR"2 ' S000003 ' 

define MASKSYSTHDR^S * SOOOOOf ' 



; 4 bits for header field 1 
; 2 bits for header field 2- 
; 4 bits for header field 3 .\ 
;mas)c high order f rom. getvalue 
*;mask high order from getvalue- 
;masJt high order from getvalue. 



codes for the type of framing C2 bits in bits 24-25 of frame header) 



define 
define 
define 
define 

define 
define 



FULL STEREO 
JOINT STEREO 
DUAL " 
MONO 

NFRAMETYPE 
MASKFRAMETYPE 



'SbOOOOO' ; 00 stereo- left i right channels 

'SOOOOOl' ; 01 stereo intensity-2 channels 

'S000002' ; 10 dual-2 channels . 

'$000003'.. ; 11 mono-1 channel only 

'2* 2 bits for type of frame field 

'$000003' ;mas)c. high order from getvalue 



bit flags for controlling the type of framing during bit allocation t coding. 



deiCine stEREO_vs_MONO 
define. LEFT vs RIGHT ^ 
. define JOINT FRAMING / • 
define ^ J0INT3at_FULL 

define JOINT_at_,SB_BOUND 



define FIRST.TIME 

define MASKING^PASS .* 

define KEARING^PASS . 

. define FINAL^PASS >. 

define AT LIMIT SUBBAND. 

define AT~USED_SUBBAND 

define SUMMARY ALARM ; 



0* . 
'1' 
-2' 
'3* 



•5' 

'10'' 
•16? ■ 



;0 - 2 channels, 1 « one 
;0 « left channel, I • right 
;0 • not JOINT. STEREO, 1 - yes 
•FULL Stereo upgrade allocation 
; 1 - YES at full, 0 • joint 
;has stereo intensity sub - band ,.: 
; boundary been reached: 
0 - NO, 1 YES . 
;did lo^ thru allocation tests 
; malce any new bit allpcation/ 
; 0 -yes, 1 ■ no 
.• allocate to masking threshold : . 
; 0-YES, l-no (ALL are below) ' 
; alloc to threshold cf hearing: 

0«YES, l«no (ALL are . below) 
; allocate pass of what's left: 
; 0 • NO, 1 . YES . . • 
; does NOT req at least 1 allcc 
; above .used sub -band' limit - 
;did any alarm get sensed 
•; 0 • NO/ 1 - YES , . 
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• . "define- PROTECT *• ' . . ■ 
define MONO^OUT^CHANNEL 
define. MONO^OOT^BOTH 
def ine' ■.LEFT_SINE_WAVE :.. 
define •"•RIGHT^S1ME_wave: ;-v 
define tOW.vc_HIGH_SAMPLIl»S, 

.•decoding overload flag 

• define : SKF ZERO ' ■ ■ , ^ ' ' 3 ' • 



-16- 
'18' 

'19'. 
•20' 
•21' 
'22' 
.'23/ 



.•should checksum, (CRCIG) protec 

; 0 - NO,: 1 « YES 

.output to only one channel:. . 

0 - left, I - right . 
; output mono to both channels: 
; 0 «. NO only one, 1 - YES 
;left channel music vs tone- 
; 0 • NO only one; i. > YES . . 
; right channel music vs tone 
; 0 -NO only one, l « YES . ' 
I'lencode low or high , sample rate 
; 0 - low/ 1 high . . 



; sensed a zero scale factor 
0 « no. 1 • yes 



;define bit position flags for r?.e coding frames with the CRC- 16 checksum 

. define USE_SAVED ! ' S' " .-checksum failed use saved frame 

define FRAME_SAVED '7' ' .;a good frame was saved for use. • 

define SAVE_FRAME '8' .-save this good frame for use 

define DSING_i5AVED . * 9 * . . ' ; this frame is the saved frame 

define REFRAME '10' . ;cnt bit errors exceeded, reframe 

; define decoder auto selection flags for; 

; bit rate (determined by. trying to frame at each of the two 

' ■ * bit rate' choices) 

; type of audio data (KUSICAM frames or G722) 

. (determined by not being able to frame at either 
; of the two bit rate choices) 

; sampling rate (determined from a MUSICAM frame header) 

; (if NOT auto selected, some other switch sets the value) 



define AUTO SELECT BIT RATE '11'. 

define AUT0"SELECT"DATA TYPE ' 12 ' 

define AUTO^SELECT SAMPLE RATE. '13' 

define KaSI<J^_vs_G722 '14' 

define SAMPLE RATE_LOW_vs_HIGH 'IS' 



;0-N0, 1-YES 
;0«NO. 1-YES 
■ ;0-NO. 1-YES 
;0-MUSICAM, 1-C722 
;0-low, l«high 



; this flag indicates if CCS compreission applies to getdata. asm 

define DECPMPRESS_PACKED 

;this flag indicates that the framingf process has previously determined 
; that the. input data to the MICRO decoder is a stream; of MOSICAM frames 

define MUSiaW.INPOT^SBT fl7'. .-O-NO. l-YES 

;define flag that the current fra^ has a sync wor4 

^. define ■ NO_sYNc'*:. ] - ■ y :2i'- ' 

idefine flag that determines which. ISO CRC-16 controls to use: • . 

; 0 - OLD controls: seed with O's and fixed span of , bits covered 

^ 1 - NEW controls: seed with F' s and dynamic span over. the SBits 



define . CRC_OLD;_vs_NEM 



•22' 



W096028a5 PCiyDS96/04835 



- 17- 



;def ine .th^:,sub.band aliocarion AtLimit. bix f lags; tha. xontrci; selection 



define MASKING^LIMIT .'0 

define HEARING.LIMIT ' 1 

define ALLOCATE.LIMIT.. '2; 

define NO^ALLOCATE '3 



•1 reached sub-band's masking threshold 
•1 reached sxib-band's hearing threshold 
•1 reached s\ib-band;s wax bit limit 
';1 NO allocation at this sub- band 



define LIMITSUBBAKDS 



'17' 



;sub-bands 0 thru 16 get at least L 



aei^nv. *r*. — - 

' ■ ' ^ ■ 4:*.a«.e thAt a sub-band did not need ainy bits 



■ define ^ FRAMELIMIT' \ V ; 
codes for stereo intensity subband bound 



define INTENSITY.4 

define INTENSITY'S 

define INTENSITY.12 

define . INTENSITY_16. 

define NSTINTENSITY 

. define MASKSTINTENSITY 



'SOOOOOO* 
'SOOOOOl' 
'5000002' 
'S000003' 

' $000003' 



(2 bits 25-27 of frame header) 

• 00 subbands 4-31 intensity mode 
•01 subbands 8-31 intensity mode 
' 10 subbands 12-31 intensity mode 
i 11 subbands 16-31 intensity mode 

- 2 bits for intensity boundary 
•mask high order from getvalue 



stereo 



intensity boundary su3D-band counts 



define B0UND_4 

define BOUND^B 

define B0UND_12 

define B0UND_1€ 

codes for output bit rates 

■ define BITRATE^FREE 
define BITRATE.32 
define BITRATE_48 

define B1TRATE_56 

define BITRATE 64 

define BITRATE 56 

define BITRATE_64 

define BITRATE^BO : 

defines BITRATE.se 

define BITRATE.112 

define BITRATE^128 

define BITRATE_160 

define .BITRATE.192 

define BITRATE.224 

' define B1TRATE.256 

define .BITRATE.320 

define . BITRATE^SBf . 



'4* 

'12' 
•16* 



0-3 full stereo, 4-31 intensity 
0-7 full stereo. 8-31 intensity 
0-11 full stereo.. 12-31 intensity 
0-15 full.stereo. 16-31 intensity 



(4 



bits in positions 16-19 of frame header); 



;!!{2S.e 



! 28 . 8 



'$000000' 
'SOOOOOl* 
•S000002' 

'$000003' 
'$000003' 
'$000003' 
'$000004' 

'S000005' 
•S000006' 
'$000007' 

' sooooos; 

'S000009' 
' $oooooa* 
'$00000b' 
'^SOOOOOc' 
•SOOOOOd' 
'Soooooe' 



0000 ® unknown Jcbits/s 

0001 • 32 kbits/s 

0010 « 4 8 kbits/s 

coil • 28.8 kbics/s 

0011 « 28.8 kbits/s 
0011 • 56 kbits/s 
0100 9 64 kbits/s 



0101 
0110 
0111 
1000 
1001 
1010 
1011 
1100 
1101 
1110 



80 kbits/s 
96 kbits/s , 
112 kbits/s 
128 kbits/s 
160 kbits/s 
192 kbits/s 
224 kbits/s 
256 kbits/s 
320 kbits/s 
384 kbits/s 



-;d,Un«LEITRATE^EE;>0«\;'SW -pooo ..- unknown- kbic./.^^ ■ 
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aetme 

define 

define. 

define 

define 

define 

define 

define; 

define 

define 

define 

define 

define 

define 



BITRATi 

sxtrate' 
bxtrateI 

BITRATE^ 

aiTRATE 

BITRATE 

BITRATE, 

BITRATE^ 

BITRATE 

BITRATE 

BITRATE 

•BITRATE, 

BITRATE 

BITRATE 



8_L0W 
'l€ LOW . 

'40"'LbW 

"eo^LOw 

"96~LOW 
"112 LOW 
■i28"LOW 
"144"L0M 
"160"LOW 



: -18-V 

•SOOOOOl' . 

•S0OOOC2* 

^$000003' 

'S000004' . 

'S000005' 

'S000006' 

'S0000C7'. 

•$000008* 

'S000009V 

^SOOOOOa' 

' SOOOOOb' 

* soooooc- 

•SOOOOOd' 
'Soooooe' 



0001 ® 8 kbits/ s 
.0010 9 16 kbirs; s ■ 
0011 «. 24 Jcbics/s. 

0100 9 32 kbics/s 

0101 « 40 )cbits/s 

0110 ® 48 kbics/s 

0111 » 56 Jcbits/s 

1000 9 64 kbits /s 

1001 9 8C kbics/s 
iOlO ft 96 kbics/s .. 

. 1011 ft 112 kbits/s 
1100 ft 126 kbits As 

. 1101 ft 144 kbits/s 
1110 ft 160 kbits /s 



' de f ine NBITRATE' • 
define MASKNBITRATE 

• codes for input satnpling rate 



; 4 bits for bit. rate code in hdr 
;mask high order from gecyaiue 



^SOOOObf. 

i2' bits in positions 20-21 of :f rame header 



1 !2B.B 



define 
define 
define 
define 
define 
define 
define 



sample_:o bit^high . 'i ' 

SAMPLINGRATE 16 ' SOOOOOO' 
SAMPLINGRATE"'24 ' SOOOOOO' 
SAMPLINGRAT£"l 6 ' S 0 0 0 0 0 0 • 
SAMPLINGRATE~48 ^$000001' 
SAMPLIKGRATE"32 ' 5000002 ' 
SAMPLINGRATE 24 / $000003 . 



! 2 8 . 8 



define 
define 

define 
define 



NSAMPLERATE 
MASKNSAMFLERATE 

NSBITS 
KASKKSBITS 



•2' 

'$000003' 



00 ft 14 .4 kHz 
00 ft 14 .4 kHz 

00 ft 16 kHz 

01 ft 48 kHz 

10 ft .32 kHz. 

11 ft 24 kHz 



; 2 bits for sajnpling rate in. hdr 
;mask: high order from getvalue 



•2' /length of the scale factor select 

•$000003' ;mask high order,, from, getvalue 



•'•he' following defines the masker structure. _ 
This structure occupiea both x an y memory (1) 



define MASKERSSI2E '3' 

define MASKERSPWRDB ' 0* 

define MASKERSRDPWRDB '0'. 

define MASKERSBIN '1] 

define MASKERSBFREC 1 

define MASKERSTYPE *2' 

define MASKERSCRITBND '2 



.-length of the .structure .■ . ,. • 
;of f set to masker power '.1 for watts 
; and X for dB) i \ 

.-offset to reduced power m db, (y) . 
; offset to bin number ixj 
.;Offset to freq in bark (y) .'■ 
/offset to masker type (xr 
.-offset .to msk^r crital band if noise ly. 



;highest numfaef of critical ,bands^ for all sampling rates 
■ ^define./ iTOMMAXCRITBlTOS •■ 
if . SAMTYPE— SAM16K ■ 



;2e. 

128. 



"define.;.. MAXCRITBNDS 
8 

• ehdif 
1 f ..SAKTyPE"SAM24K 



•21' 



; number of critical bands 



::!28.fl. 
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MAXOIITBKDS 
MAXZRITBNTS 



! ! :28.e 



define 
define 

endif 



if SAMTWE— SAM32K 
define MAXCRITBNDS. 

■-endif ' 

if SAMTYPE— SAM48K 
define MAXCRITBNDS. 
.endif- ' ; 



'*2I''.. ■ -.•numoer. cf critical bands-. 
'23* .= ;nuniber of critical bands.: 



•24*. . ' .-humber of critical bands 



'..2'4?. ' ; number of", critical bands 



! :28.8 



!28.8 



de f ine MAXCRITBNDS 1 € 

define •MAXCRITBNDS_24 . 

def ine MAXCRITBNDS^l 6 

define MAXCRITBNDS_24 ; 

define MAXCRITBNDS 32 

define MAXCRITBNDSl4 8 



'21' ; number of critical bands at..l4l4 K 

■'21* - ' . ; number of "critical bands at 14 .4 K 

'21'. . ,; number of critical bands at 16 . K. 

'23^ . Miumber of critical bands at 24 K 

•24.' ' ;nuraber of critical bands at 32 K . 

•24* .number of critical bands at 46 K 



The following defines the Aliasing structure. 
-This structure only occupies X or y memory 



define ALIASSIZE ' '2' 
define ALIASBIN '0' 
define ALIASPWRDB: .. '1* 



; length of the structure . 
;bin number of aliaser. (0-511): 
;power of the aliaser in sib 



General things, 



define NtJMSOBBANDS ,'32' 

define NOMBLOCXS '3' 

define NUMPERBLK " '384 

define NUMPERSXJBBAND '12' 
define/SKF ' . . ■ '6' ■ 

define MASKSKF 'SCO 
define SKnC2 : . '64' • 

define BINSPERSUBBAND '16* 

define NUMCHANNELS ,'2' 

define NUMSNRPOSITIONS '18'. 

define NUMINDEXES . . . '16'. 

define MAXSUBBANDS^CCS '30 ' 
define MINSUBBANDS.CCS '4 ' 

. define MAXSUBBANDS.LO; ' 14 ' 



;nunier of sub-bands 
;number of blocks per super- frame 
;number of points per block 
mumber of points per sub-band 
.•number of bits per scale factor. 
0C3f' ;mask high order from getvalue . 
; number of scale factors 
r number , of FFT. bins per subband *. - 
.♦two channels: left and right 
;18 Signal -to -Noise position- codes 
; 16 position codes Allowed per sub -band 

.•maximum sub- bands to ever be used 
.•minimum sub- bands to ever be used 
;low bit rate max sub -bands ever. used 



;def 



ine the used- subbands for 64 and 56 KBits ^. 
sampling rate / 2) - max Hz / by 32 sub-bands 
.based on sampling rate: « :■ ' ^ 
14400 9 225 Hz per sub-band 
16000 a 250 H2 per sub -band 
.24000 ^ 375 Hz per . S'ob-band 
32000 « 500 Hz per. sub-band 
48000 « 750 Hz per sub-band 



Hz per sub-band . :. • 

(144C0/(2*32:NUMSUBBANDSi « 225.)*. 
(16000/ (2*32:NUMSUBBANDS).- 250) 
{24000/ (2*32 :NDMSUBBANDS) - 37S) 
(32000/ (2*32:NOMSUBBANDS) - 500) 
(48000/ (2«32:NUM5UBBANDSi - 75C:. 



also based'on bandwidth" code, selection from a pair exter^ial switches: 
■• ^00 • CCS standard • • 

■ 01 • -1" siib- band .less- than standard . ■ ■ 
10. . 2 sub-bands less than standard 
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3 sub- bands less tnan standard 



define 
define, 
define 
define 



L26.8 



define 
define 
define 
" define 
define 
define 
'define 
define 



USEDSUBBAND5 
USEDSUBBANDS* 
USEDSUBBANDS' 
USEOSUBBANDSl 

U5EDSUBBANDS 

USEDSUBBANDS' 

USEDSUBBANDS' 

USEDSUBBANDS' 

USEDSUBBAZ^S' 

USEDSUBBANDS* 

USEDSUBBANDS' 

nSEDSUBBANDS' 



CO 16 
"01*16 
"lO'l6 

[lOe-: 

,00_16 . 

"01 16 

■l0'"l6 

■ll"l6 

"00*16 

'01~16 

'10*16 

"11*16 



'27' 
•26' 
•25' 
• 24' 

'30' 
'26' 
•22' 
•18' 
'22' 
'21* 
•20^ 
'18' 



6750 Hz © 16000 H2 sampling 
6500 Hz ©16000 Hz sampling 
6250 Hz 9 16000 Hz sampling 
6000 Hz. » 16000 Hz sampling - 



6750 Hz ® 
5850 Hz ® 
4950 Hz 9 
4050 Hz 9 
5500 Hz 9 
5250 Hz ® 
5000 Hz 9 



14400 Hz 
14400 Hz 
14400 Hz 
14400 Hz 
l€0OO Hz 
16000 Hz 
16000 Hz 



4500 Hz ® 16000 Hz 



sampling 
sampling 
sampling 
sampling 
sampling 
sampling 
sampling 
sampling 



!28.8 



: :28.8 



define 
define 
define 
define, 
define 
define 
define 
define 



226.8 



define 
define 
define 
define 



USEDSUBBANDS 

USEDSUBBANDS" 

USEDSUBBANDS" 

USEDSUBBANDS" 

USEDSUBBANDS' 

USEDSUBBANDS 

USlEDSUBBANDS' 

USEDSUBBANDS. 

USEDSUBBANDS 
USEDSUBBANDS' 
USEDSUBBANDS' 
USEDSUBBANDS' 



00 24 
'01*24 
10*24" 
'11*24 ■ 
'00*24 
"01*24 
"10*24. 
>1*24- 

00_24 
"Ol 24 
"10*24 
■ll~24 



'30' 
*26' 
'22* 
'18* 
•27' 
•26' 
'25' 
'24' 

.'■18'- 
'16' 
•14': 
'12' 



define USEDSUBBANDS_0O 32 '20' 

define USEDSUBBANDS_01_32 '19' 

define USEDSUBBANDS 10 32 '18' 

define USEDSUBBANDS_11_32 '17' 

de f ine USEDSUBBANDS_0 0_4 8*11' 

define USEDSUBBANDS*0 1*4 8 '10' 

define USEDSUBBANDS_10_48 '9' 

define USEDSUBBANDi5_11.48 ' 8* 



128.8 



define INPCM 

define PCMSI2E . 

define PCMSIZE. 

define PCMSI2E ; 

if SAMTYPE— SAM16K 
3 • . 
define RATES6: 
define OUTM56 ■ 
define OUTB56 

define RATE64 
define 0UTM€4 
define OUTB64 

define RATE5.6 
define .OUTM56. ... 
.define putB56 



f 1152' 
'2560' 
'1152'- 
•2304' 



6750 Hz 

5850 Hz 
;4'950. Hz 

4050 Hz 
10125 Hz 

9750 Hz 
; 9375'H2 

9000 Hz 



® 14400 
® 14400. 

8 14400: 

9 14400 
« 24.000 
0 24000 
• 24000 
® 24000 



Hz sampling 
Hz sampling 
Hz sampling 
Hz sampling 
Hz sampling 
Hz sampling 
Hz sampling 
Hz sampling 



; 6750 Hz ® 24OO0 Hz sampling 

, .6000 Hz ® 24000 Hz sampling 

; ; 5250 Hz ® 24000 Hz sampling . 

; 4500, Hz a 24000 Hz sampling 

; 10000 Hz ® 32000 Hz sampling \ 

; 9500 Hz ® 32000 Kz sampling .* 

; 9000 Hz ® 32000 Hz sampling • 

8500 Hz ® 32000 Hz sampling 

B250 Hz ® 48000 Hz sampling 
; 7500 Hz ® 48000 Hz sampling 
; 6750 Hz ® 480O0 Hz sampling. 
; 600 0 Hz ® 48000 Hz sampling ' 

;NUMPERBLK*NUMBlOCKS \ 
; NUMPERBLK^NUMBLCCKS.* 2<i-2S6 
;NUMPERBLK*NUMBL0CK5 ! i !dbg! ! ! 
;NUMPERBLK*NUMBUCKS*2 IM dbg ! [ I 



'0' ;dip switch code for 28.8 Kbits 
: '9€ ' . . ; 9 6 output, words (2304 bits ) 

:'23C)4> :080 • 28800 : 

'0' ;dip switch code for 28.8 Kbits 

'96' ;96 output words (2304 bits) 
'2304' 080 28800 / 

. '0' ;dip switch code for 56 Kbits 

'168'- ;168k output words (4032 bits). 

•.4032'. ;.072 • 56000. 
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define. RAtE64. 
define CUTM64 
define OUTB64 



•endif 



;!! 128.8 



if SAMTyPE--SAM24K 

define RATES 6 , 
define OOTM56 .. - 
define OtJTBSe 

define RATE64 . 
define 0UTM64 
define OOTB64 

define RATE56 
define 6UTM56 
define OUTB56 

define RATE64 
define OUTM64 
. define 0UTB64 \ 



; !.! !28.8 



endif •/ 

if SAKTYPE--SAM32K; 
define RATE56 . . 
define OUTM56 .. 
define OUTB56 / , 

define RAtE64. 
define 0UTM64 . 
define 0UTB6 4 • 
■ endif ' ■ 

" if SAMTYPE— SAM48K 
define RATE56 . 
define OUTM56 
define -OUTB56 ' 

define RATE64 
define 0UTM64 
define OUTB64 
" endif ■ ; ■ 

.. define RATEjLO 
define RATE.Hl . . 



'l'^ ■ ■■ ;dip switch code for 64 Kbits' 
•192'. ;192Jc output words .14608 bits? 
'4608' ;.072 • 64000. 



:'\0'' . ;dip switch code for 28.8 Kbits 
'96* ■ ;96 output words (2304 bits) ; 
'2304:.'' ; ,080: ♦ .28'800;-: • 

••0' . ;dip switch c6de for 28.8" Kbits 
'96' ;96 output words (2304 bits) -. 
•2304' :;.080 * 28800 

'0' ; dip switch code for 56 Kbits 

'112* ;112k output words (2688 bits) 
'2688' ; ;.P48 * 56000. . 

•1'. ' ■ .-dip switch code for 64 Kbits- 
•128* ;1281c output words . (3072 bits) 
'3072' ;.048 • 640C0 



'0' ; dip switch code for 56 Kbits 

'84' ;84k output words (20i6 bits). 

'2016' ;.036* 56000 . 

'1'. ■ ;dip switch code for 64 Kbits 

'96* ; 96 )c output words (2304 bits) 

•2304' ;.036 * 64000... 



'0' ;dip switch code for 56 Kbits 

'56' ;561c output words (1344. bits) 

'1344.'. 024 ♦ 64000. 

•1' : ; dip switch code for 64 Kbits 

•64' ;64k output words (1536. bits) 

^1536' ;.024 *€4000 



•0' 
'I' 



i-dip- switch code for lower Kbit rate : 
;dip switch code .for ..higher Kbit rate 



^..define framing bit rate, values for sampling at 16 K 



1 128.8 



define 0UTM32_16 
define. OUTS32_16 
define. 0UTM48_16 
define 0OTB48_16 



define .OXTrMS6_16 
define OUTB56 16 
define OUTM64 16/ 



'96' . ;96k output words (2304 bits) 

'2304' ;. 072 ♦32000 

'144' ;144k output words (3456 bits) 

'3456'., r.072 .♦ 48000 

'96' ; 96 output words (2304 bits) 

'2304' 080 ♦ 28800 - 

'96' : . ;96 output words (2304. bits); 
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define. ■CUT364_16 
define OVmSS^lS 
define OUTB56_X6 
define OUTM64_16. 
define OUTB64_l€ 



- " .: '22- 

•2304' ;.08Q* 28800 ; 

• X68 ' ; i€8k output words . (4032. bits I 

'4032* ;.072 • 56000 

•192V ;192ik output words (4608 bitsi 

'4608* ;.C72 * 64000. 



; I : :2B.8 

define; framing .bit rate values, for sarnplihg .at..24 .K - 



define OUTM32^24 
define OUTBS 2.24 
define OUTM4 8_24 
define 0UTB48_24 



: ! ! !2B.8 



define 0UTM56_24 
define 0UTB56_24 
define OUTM64_24 
define 0UTB64_24 
define OUTM56_24 
define OUTB56_24 
define 0UTM64_24 
define ':0UTB64_24 



'64' ; 64k: output words (1536 bits) 

'1536' ;.048 ♦32000. 

'96' ;96)t output words (2304 bits)... 

•2304?. ;.p48 ♦ 48000 

' 96 • ; 9 6 output words {23 04 bits ) 

'2304' ; .080 * 28800 

'96' ;96 output words {23 04 bits).; 

'2304'' ; .080 ♦ 28800: 

'112' ;112k output words (2688 bits) 

•2688* ';.048 .* 56000 

'128' ;128ik output words' (3072 bits) 

•3072' ; .048 * 64000 



; I 1 128.8 

; define framing bit rate values for samplingat 32 K 



define OUTM32_32 ; 

define OUTB32_32 

define OUTM4B_32 
. define OUTB48_32 

define: OUTM56_32 
. define OUTB56_32 
' define OUTM64_32 

define OUTB€4_32 



'48 V ;48k output wrds (1152 bits) 

'1152' ; .036 ♦ 32000 

•72' ;72k output words (1728 bits) 

'1728' • ;.036 ♦ 48000 

'84' ;.B4k. output words. (2016 bits) 

'2016' ; .036 ♦ 560O0 

'96' ; 96k output words (2304 bits) 

'2304' ;.036 ♦ 64000 



define framing. bit rate values for sampling at 48 K 



define OOTM32.48 
define OUTB32_48 
define OUTM48_48 
define .0UTB48_48 
define OUTM56_48 
define 0UTB56_4e^ 
define OUTM64_48 
define OUTB64_48. 



'32' ;32k output words (768 . bits) ; 

'768' ; .024 • 32000 

'48' ; 4 8k output words (1152 bits) 

'1152' 024 * 48000 . 

*S6' ;56k output words (1344 bits) . 

' 1344' ; .024 ♦ 64000 ' , 

'64' ';.64k output words . (1536 bits) 

'1536' ';.024 • 64000 



; highest . number, of ' f reqs used ^f or^ coding for all sampling .rates ; 

■\ define. MMQIMSKFREQS . . 'l^^' -] 
;number of- freqs :used:-for;Codi^^^ sampling rates 

if SiU!fryPE--SAM16K . 



; 1 I 128.8 
: 1 ! !2e.8 



define NMSKFREQS 



'132* . ;number.of freqs used for. coding 



:2B.8 



endif 
if SAMTYPE--SAM24K 
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-23 



: : :28.8 



define NMSKFREQS : 
B ■ 
endif". 

if SWiTYPE— SAM32K 
define, NMSKFREQS-, 

endif;: 

if SAMTYPE--SAM4 8K 
define NMSKFREQS. . 
. endif - 



M32'.;/ ; number of freqs used for coding 



; ::28.a 



*28.e 



define NMSKFREQS_16 
define NMSKFREQS 24 
define NMSKFREQS_1€ 
define NMSKFREQS_24 

define NMSKFREQS 32 
define NMSKFREQS_48 



•132' 



•126' 



'132' 
'132' 
'132' 
•132' 

•132' 
'126'. 



number of freqs used for coding' 
..•number of freqs used for . todihg 



;num freqs used for. coding at 14v4 K: 

;num freqs used. for coding at 14.4 K 

;num freqs used for coding at .16 K ; 

;num freqs used for coding a C: 24 K 

;huin freqs used for coding at .32. K . 
; num. freqs used.. fcr coding at 48 K 



the following indicates if CCS compr<sssion tor. positions: 



2 and 3 



define COMPRESS 
define COMPRESS 



•0- ;0 . indicates no CCS cbmpressicn 
•l* ;1 indicates use CCS compression 



define uncompressed getdataO getvalue masks for unpack: 
upackS, upackS and upackS 



define MASKUPACK3 'SOOOOlf 
define maskupacks 'Soooovf 
define MASKUPACK9 ;'S0003ff' 



5 bit getvalue retrieved 
7 bit getvalue retrieved: 
.10 bit getvalue retrieved 



define CCS compress: getdata 0 getvalue masks for unpack: 
* ,upack3; upackS. upack8 and upackS. 



define MASKUPACK3X ' SOOOOOf ' 

define MASKUPACKSX 'SOOOOSf 

define MASKUPACKSX 'SOOOOff,' 

define MASKUPACK9X 'S0003ff 



needed by the decoder rdecode program 



define NOOF 
define NSBOFS 
define MAX^TRIES. 



•5' 
•4' ^ 
•10'^ 



needed by. the decoder, rsynth progr.am' 



define ; OUTBUF . 

define . OUTBUF . 
• define OUTBUF' 
: define OUTBUF 

needed by all 

define NPERGROUP 



'512' , 
'768' 
^1024' 
' 1152 ' 



4 bit getvalue retrieved 
6 bit getvalue retrieved 
a bit getvalue retrieved 
10 bit getvalue . retrieved. 



; number of out of frames 

;nuTnber of sync buffers 

; restart after framing tries 



;size of the output buffer 
;si2e cf the output buffer . . 
. ; size of the output buffer 
; size iof the output buffer- 



; number of samples per processing grp. 



This constant is used by.xpsycho inly to set to, offset used to account, 
for the phase locked loop (PLL^ jitter, . 
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.. / ; . ' ; ■■- "■ .■'.•25.-; ■ • .. .. ' :• ; "■• ; , ■ 

define. DATABUFLEN . . :.• , '5X2' ^-ancillary data' inour' buffer lengrr 
define 3ITSPEP3YTE . . " /. '8' ■ • •■.;ancillary daza in'Srhiz byt-s 
define BITS FOR? ADD INC. .'3' • :;framed bit ccunt for pad byte csur.: 

•list ' . ■•■•V ^ - ' • ;■ 
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.. nc.ist ' V -26-. - ■ •■' 

• ic .1995. Ccpyrighi Corporate Computer Systems. Inc. All rights, reserved. . . 

'•• ADGCStNbox^ctl.^sm" . ^:..v ^ V ' • • • 

; This file contains the defir4itions for the .control, variacies-- for ; . 
r'-:nr*ing,the encoder and decoder fcr • 

nigicast MiniCodec version c* CCS CDQIO 00 ■ ■ 

sampling rate is 14.400 K - 225 Hz per sub-band t coded as 16 K sampling; 
bit rate is 28 . 8 KBits per sec (coded as the low sampling rate). 
■• ■ ■• the frame header is coded as ■•fffcOO* 

Port B fcr the encoder and decoder is defined as a host port .. 
encoder has its o%*r phase lock detected oh pel of Port C 

• decoder phase lock is detected on pcO.of Port C 
• ; . ' ancillary-.; data is NOT APPLICABLE' 

;de£ine the bits required for Reed Solomon error correction 

define REET^SOLOMCN^BITS '24C' ;8 bits - 2D Reed Solomc.-. bytes 

•define the chcice pairs of input PCM sampling rates to make available 
:28.8 



; ! ! !2e.8 



define SAMPLE 16K AND_24K 
define SAMPLE2i6K_AND_24K, 

define SAMPLE i6K AND_32K 
define • SAMPLEIi 6K_AND_4 8K 
define . SAMPLE 24K_AND_32K 
define SAMPLE"24K AND_.48K 
de f ine SAMPLE"32K_AND_4 8K 

;de£ine the- s.elected pair of input PCM sampling rates to make available 

; : !-!26.-6 





; Choice of 


14400 or 


14400. 


'0* 


.•choice of 


16000 


or 


24 000 


' 


; choice of 


16000 


or 


32oVe = 


'2' 


; choice of 


16000 


or 


,48000 




.-choice of 


24000 


or 


32030 


'4' 


; choice of 


24000 


or 


480CC 


•5' 


.-choice of 


32000 


or 


48000 



1 128.8 

; 1 : !23.8 
; ! : 128.8 



def ihe SAMPLE_RATE_PAIR 



•0* 



;1440C and 14400 sample rates 



if SAMPLE_RATE^PAIR"SAMPLE_l€X.iM©_24K 



define 
define- 
define 
define 
define 
define 
define 
define 
define 
define 
define 
define 



LOW SAMPLE RATE. 

HIGH SAMPLE RATE . 

FRAMESYNC LO 

FRAMESTOC^HI 

LOW SAMPLE_PATE_CCS 

KIGH_SAMPLE_RATE_CCS 

FRAMESYNC LO CCS 

FRAMESYNClHlICCS 

LOW SAMPLE^RATE^ISC 

HIGH SAMFLE_RATE_ISC 

nWffiSYNC LC ISO 

. framesync^hOso 



'sooooob' . 

'SOOOOOO* . 

'$fffcOO* , 

'SfffcOO' 

•SOOCOOO' 

'SOOOOOO' 

'SfffcOC 

•SfffcOOV 

•SOOOOOO' 

* SOOOOOO" , 

'SfffcOC* 

'SfffcOOV 



00 
00 
f r 
fr 
■ 00. 
00 
f r 
fr 



00 ® 14.4 KKZ 
00 9 14.4 KHz 
.f r sync patter: 
fr sync patter 
9 14.4(16). KHz 
«• 14 .4 (16 V KHz 
sync old CCS 14 
sync old CCS 14 
8 14.4(16: KHz 
« 14.4 (24) KHz 
sync MPEG- ISO 1 
sync MPEG- ISC I 



n 14 

14 



,4K'. 
,4K: 



4.4K 
4.4K 



4X 
.4K 



;24 « • 



128.8 
: !28.8 



." endif. 

•def ine the framing max tries fcr. MUSICAM . 

'- 'define' ■ VERIFY- TRIES " '5' 



.•verify, found rates 
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deiln* , MAXlA-vTO-TRIES . ' 'SC- , . :ior 1,.52 •secsnas . • ■■■ 

.Vdef ine the . power up wait" 'times beSsre going; into processing/ ••. .■ 
. ' ' ' ' de'ine XCOOE STARTUP '■ ■ 1.00 C I-' second ■ ■ 
•;;■■.>■. .-SSiiM .;IU)COS?J?T_STARTUP 

rdefine tbe-"me«ory layouts fcr. amy ■.diagnostic ;m«mory^ 
■;decoder memory -layout: 

•-■■■■< ■■■■ ' define START_P_MEM0RY_CC3 . 'j;"*;.-. ■ 
■ ■■■■ define END P MEMORY_DCD - , '2048, 

.■ define^- startIx_memory_dcd •'40' • 

■deiine EIC_X_MEMORV_0C3- 512C VV . 

def ine START V MEMORY.DCD :.. . .M26' /. 
.• ■.. define- Eiro_YltffiMORY_DCD -.; '1536' - 

define ' WATCHJ»G^Tij)p ■ :\.f20^' 20' -milUsecs for watch dog. 

• rf** ne Che encoder /decoder overload scale factor; code a scale -facter . . ; 
..; chin tlis value ip considered an overload -condxtion . 

define OVERU>AC_SKF'' ■• .. '5' • 

Che- -on-rols to rcframe if an excessive error condition persists-' 
^^^i?em^ncy^o"t ol frames out-of-frame o 

■ - J good, frames and bad frames. 

--nnp neciiEMEST-' -'l' ' ;good' frame decrement value ■ 
; 5*;"*. «?S tSI^^T '2' ■ error condition frame incremer.c value - / . 

■ ■ ItS-trS??^ :.ou^-of-frame (ocf 'Si tolerance, - ,. 

■ : -, SitSe : l^i^lMIT ;nO' . ;«C-16. checsux tit, error tolerance . ■ . . - 

: •ben'3/8/9V (8tart): G722 modification for K221 . 
jUnd. shake definition -.(PBDr ; : . 

■ ' def tie HSFTT ' «i4 : :PB14 input . 
■• de'ine CC ' #9' - ■ -V ■...„•• " ; PBS input . 

■ 'Zll^^l -5 ■ •«1G' ;PBIC. input . .- 

: /Hi •IS' ; 

'■-'^ i-tx-flag deJfiaition-': ' ^ ■ - ".//■■■' ■<■ 

■^V^ ■ ■"• - Mml'MCroi-iSin switch- ;.• 

define -, M64. ; - - «l -■ -. - . - - 

•'-'.--.jlsen- 3/B/M <endr:\!q722 modification for H221 ; •---■■'--.:■;.;/:./■•■■;/-■'■■'>.''■., 

-■ " :ben 3721/95 V decoder ' Reed Solomon ' address . paramete«^^^ > ;•- ' ; V 
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■ define 
define 
define 
define 
define 
define 
define 
define 
define 
define. 



RSRegl 
RSReg2 
RSReg3 
RSRe94 
RSRegS 
RSReg6 
RSReg7 
RSRegS 

RsiN 

RSOUT . 



■'58ff8' 
'$8ff9' 
'SBffa' 

'seffb' 

'SSffC 
'SBffd' 
•$8ffe' 
'$8fff ' 
'SfffB' 
'SeffB': 



; define PORT C inlcializations 
; encoder P0R7 C Assignmentis 



.5 > 

i-. ■ 
p ' ■ 

8 - 

•s--. ■ 



SSI pore 
input port 
output port 



.7 6. 5 4. 
s. s s-'i'- 
•• e"' 



- 3 2 1 .0 

■ s". b. i o- 

- . ■ ■ 8 ■ ; 



pcO 
pel 
pc2 
PC3 



pc4 
pc5 
pc6 
pc7 



eclksel (o) 
eld (i) 
rstrs (o) 
ebclk (si) 



elrcik (i) : 
ewclk (si) 
eclk fsi) 
esrdata (si) 



pc6 - etdaca (so) 



■pioi ' S ■ 

;select clock for Reed Solomon. 
;jphase lock detect ( 0 -not . locked, 
. ;reset Reed Solomon - 
;bit clock . •• 



1-locked) 



0000 « 0- ■ ■•. 

; input pcm samples left /right clock 

; transmit word clock . 

; input samples word clock 

; input audio pcm sample data 

'0000 - 0 - '- 

; output MUSI CAM frame data : 



define, XCODE PORT C M PCC 
define XCODE"PORT"m"PCD 
, def ine XCODE^PORT^C^M^PCDDR 

decoder PORT C Assignments/ > 



'movep #>$01e8,x;.<<SFFEl' 
. 'movep #>$0004,x:<<SFFE5' 
.'movep ■ #>$0005,xi«SFFE3' 



s a ssi port 
i « input port 
o a output port 



7 6 5 

8 8 i 

.d . 



- 3 

8 



2 1 0 
o o 1 

Olio 



pcO - did (i; 

pel - fclksel (o) 

pc2 - darst (o) 

pc3 - de Ik (si). 



0000 



l ■pc4. •:..dwclk- .(si) 



; phase lock detect (O»not locked »1« locked J' 
; select clock for Reed Solomon 
;d-to-a reset line (0 « mute, 1 « audio) "Z 
; receive input frame data stream clock 



transmit dac output audio. word clock 



WO9d/32805 



PCT/yS96/0483S 



; pc5 «■ dirclx -.i.'- ■ '. :;zransmiz -dac audio cutpur- left/righc. deck . 

; pcS « dbcik '.SI . .-decoder bit clock ' . 

.; pc7 • drdataisii ; receive -inpur musx cam f rame -daca . - 

] ' ■ oooff 0 ' \ V* "- - ..v 

7' pc8' « dsdacai- .(so» ■ ; ;trMsmic audio /data output ^tc\dac . 

•define RDECODE PORT C M PCC /•mbvep"- #>SCld8/x:<<Sr?El V 
■ ■ ■'define RDECODE2pORT"m*PCO ■ * ■ 'movep . t>S 0002. x: <<SF FES ■ 
. define RDECODE^PORT'C^M^PCDDR: 'movep . «>Sp006. x : <<SFFE3 ^ ^ .:: 

;define PORT B inicializ at ions- ■ . ..V 

.encoder PORT 3, Assignments 

;.li:Ncte:' for Digicast pert .3 is- a host port '• 

• . That means the following -definicions. are- not applicable;'. .*'... • 

;;;.; 14: 13-' 12 - 11 10" 9 S. -- €• s' 4 - '3 2 1: • 

; ; ; ; I*' 13 12' -Z 11 10 9 8- - 7 6- S 4 - "3 2 '1 .C" 

i ' 1 : O i i O. . O O O O ' O C i i ■'■ - ■ .. *• .'■ MUSiCAM 

i* c i . " ■ o i--' i o. .. " o. o. c o •': o -C-i i .• ** • <»f22 

■ ;;;;■*;.;- i. O i O i i O ' . C C O c' . i- O i 1 ; ■ . G722 . ♦* ' 

':]';]' ■ •'■•:'.1100 «■ c- ♦♦■.KUSICAM ' 

■ ■ ■••^ • . ■ . ■ 0100 - 4 G722 ■• 
" ; ; pbO « lib \X) ■ . . ; ;'..loop back . . 

pbl • bitrate (il frame bit rate (0-low. l-high) 
pb2 « coding (o) ; type of data input (O-MUSICAM, l=G722i 
;;;; pb3 « samprate (o) ; PCM sampling rate ro«low, l«high) MUSICAK 

pb3 . - samprate (1: ; -HSFTT flag for H221 . . .0722- ■ 

■■ 1111 » f • . . ' ; : ' : 

;;;; pb4 - emus (o) . ; encoder MUSI CAM. led lO-cff, l-lit;' 

;;; ; pb5 - eovrld CO . ; input pern overload led . lO-off . l»lit alarm- 

pb6 » e24k. (o) : ; encoder phase lock loop led .'.0«cff< i«litv. 

pb7 ■ wd2 io) ;, "watch dog timer-. ■ . . 

' . . . ' '•' ' 10 01 •.•9.. ' 

;;;; pb6 - cal io) analog-to-digital converter reset .(0«nbrnval, l«rese.t 

pb9 - eO. (i). ' ;- C0 flag for H221 • . ■ " G722 ■ 

pblO - el -Ci) ■' .;' C2 flag- for H221- G722 ■ 

; : ; ;. ptll;. • eralS ■ (o) V. ..Vmust. be set . tO :l ; 

. -OCO - 0. MUSXCAM •••• 

. -■■ 010- -'2 :■- .G722 •♦\ ■ ' •■• 

I.;';!- pbl2 - e3- U» • " ' ' ABIT flag for H221 . G722 . 

pfcl3 • e2 lii ■ • ; NOT -USED-- *• MUSICAM 

pbl3 - e2- io} " ; KSTTF flag for. K22i- . •* G722 . 

■;;;;-pfc:4 . e4 a;- NOT USED WUSIGAM',** . 

. ; .KSFTT f Ug f or •H221 : G722 . 

;;;;;;• pbl4 *■ e4 (i) " ■ ; auto Status of decoder : 0 go to low' sampling /MUSI CAM 
;;;;;; ; .' ' . - foUow above pins. 



* • t 



. . ,Note: for. Cigicast port B is a host port .. ' 

That means the previbs definitions are. not applicable . . . 

"deiine port.B. as a. host pert-.. ';.. 

: define . XCOI3EjPORT_B_M_PBC - ' , :.-''movep • «>SOO:i, x :<<SFrEO.' 
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>•;.,.••..;?.:•■•'■■ ;■ ' ■. . ^; - -30.-::; "■.^ ^ ■ 

;sftV- da'^a. sc -hat -baralS. '(bit .'ll.i is.. ! • 

define . XCODE.PORT_B_M_PBD ; ; I I ID.igicastmpvep *>S06CC . x : <<SFFE4 ' 

;se^.fcit direction, (output. « i or- input. ■O}:. • ^'l 

■ 'musicak^"**^- ■ 

. define XCODE_?ORT_B_M_PBPDR : lilDigicastmove? <i>SC?f c,x:<cSFrS2; 
" define' XADPCK_PPRT_B_M_PBDDR ' ; • I lOigicastmovep *>S29fc. x:c<SF?£2* 
.; decoder PORT B Assignments- ;. •; 
;:!:Note:" fcr Digicast port B is a hoist port • 

; . . " .-That means '.the .following def initions . are not', applicable.. ; 

14'l3 12 - H 10;'9 8^7 € 5 4 - 3^ 2''l C ... 
o c c* o o; o o. o.i o o o o o. i . -MUSICAM 

' C * '1 • 0- '"O O O O ' O i O ©• ■■ ' O' .O O -i- ■ G722 

^iii^'^ e '"..'s ■ 

;l;;:obC • ' ind -li) ■ ■•■ ;-?????-• . •■ ' ■■ • ^ ; .^'^ ■ 

.... pbi . titrate iol ;, determined framing bit rate (O«low« l«high; 

pfc2 « rcoding (ol ; type of data to- decode (0-MUSICAM, l«3722v 
' * ' pb3 « rsaraprate .to) ; determined sampling rate. (O»low. l«high^ 
■)iii;T'^ ; HSFTT flag for. H221. . ^ G722 ; 

'-Vr; ■• .' lOll -b, 

P»4- « N/C. (o) ■ ; NO -CONNECT ■ •.. . 

pbS « N/C (o). . ; NO CONNECT ■ / .;. ■ . ' 

pb6 » Id (iT ' ; phase lock loop detect (0-nbt locked, . l-locked.i : 

pc" ' « wdl . (c) " ;■ watch dog timer • 



,* • ♦ ' 



. liii - f ■■ 

obS i idarst.{o; ; digital -to- analog reset J 1-normal, C-reset 
ob9 - eC \o»- - ■ ■' ; CO flag for H221 . ■ ■ • . G722 

ptlO - el (cV ■ ; C2 flag for H221 . G7:2 

pbll « decralS (o) .'boot top (1/ cr bottom tO:: if 512 chip .. .. 



• ♦ 



WW . ..... -Ill • .f' MUSICAM *•^ ".^ 

"II' - - " ' *" 101 --d-. G722 •• , ' ■ . 

;;;; pfcl2^ e3 (ov . . - ; ABIT fiag;for H22I: ■ \ ; ■ ' ' Y. 'ti^^^^.. . ' ' 

. Db-^S- . e2. 10) • ; NOT USED . •* .KUa.wAM 

;.;;;^bl3 . . ; HSITF flag for. H22:. : ; : 0722 - .. . 

• Dbl4 - e4 iO)'-- ; NOT USED .Ml/S.-^AM 

. . pc.4 . e4 lo, . , . jiag j„ H22i.- G722. ■ - 

. Dbl4 - e4 ^o* ; autc status: 0 NOT framed-encode low sait^ling/KCSIwAK 
V:\-;V; .-, ; - l -FRAMED ^ .- . 

■;.rdcdsynt ";■.■';.;'.•.•"'•■■.•.*•■*■■',■■:.■.:. ■ ;v.^- . 



..til 



Note: fcr Digicast pert B is a 'host port . ■ . . ^ . 

That meahs the. previos. definitions. are, not applicable : 



/■define pert. B as a host.port ; " 

y.'-'- define' RDECCDE_?ORT_bJ« JPBC ' 'move? • ; «>SCOCl.X:<cSF?EC'; 
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.;.S€t daza SO that 'baralS !bir 11) ia/l - ■ - ; . 

.'"define" ■ RDECODE^PORT_B.M_PBD ' . "* ; ! ! iDigicastmovep «>S0800,*x : <<srFE4' 

.define RDECODE_PORT_B_M_PBDDR ' ; !.i IDigicastmovep. «>Sf fbe. X: «SF?£2' 
*i •• G722 

define FRADPCM_PORT_B_M_PBDDR V; r ! IDigicastmovep «>5dfb€, x : <c5FrE2; 

..••define ssi port initialization.f or.' encoder and decoder • 

• . define XCODE^SSiXcRa'V:-; • / 'movep «>f62?2'^^«f^!|x! 
■ define '- XCODE^SSI.M^CRB . . .'movep ..1t>Sf Q10-,.x:<5SFFED' • 

define RDECODE S£I_M CRA / ' •raovep"- #>S€aOC ,x: <<SFFEC* . 
define, .RDECODEIsSI.M^CRB- " rmovep #>Sf008.x:<<$FFEDv ^ . 

jdefine sci port initiaiization for ■ encoder 'and decoder - 

*- - define XCOTE' SCI M SCR ' ;'movep ; #>$0002. x: ccSFFFO'.' .. 

define ' . RDECODE_ScCm_SCR ; 'tnovep #>S0002. x: <<SFFFO . 

;dcfine the setting dsp560.C2 clock .(PLL. Control R:egister) : ■ 

; 8MH2 crystal to run a 40 MHz (5 times 8. so code a 4 .below) 

define XCODE M PCTL • movcp tt>S050004 ,x: «SFFFD' ; 

. ■ define RDECODE>_PCTL . ■ . /movep l?>sp50004,x:<<SFFFD' . .. . . . 



•EMCODER .hardware .settings f or leds and line's ■■• ;*; . 

.•control the encoder devices: " ; ..' 
; tested inputs of: . 

• • host vector 24. ■■ . ■ ' " .■ - 

provides hardware and encoding parameters: none yet . 

i host vector 2A- ■ ir.' - ■ 

. psycho table parameter id (0 - 31; , . 

; host vector 2w^^ parameter value for is fron; host vectcr 26 

; BRAD encode select datr^^e^^ :: ^ bir ^/l^-^^ah^^lio:?!^ 

;;lj^322 dec«^^ ... I ^i^'^^.s. SWS 

?^>^i^:?" . : ■ ;;biv ,5 <0.1ow, l-hxgh: .sw6; 



'• § 1 1 



■t^iAt used : ;BiZ ,S ia»J.ow, i-tiign, »wo - . 

?8w b'? 2Scoder band width code bi. 8 .O-C. l-ll sw i back panel. .. 

^^Vllo'^^'^ o^H^ nlilh^ bit X3-;!6.old., l-new) sw 6 bacK pane: 

"'Note: for Diqicast port B is a 'host port. . ■ -. • 

M- PBD (X:<cSFFE«) ■ 
pbi - bitrate ti)..- ■ bit X. frame bit ""^ (0-low l-ljigh). .. .. .. .. 

pb9 - eC (if- ■ bit .-^vCO flag for .H221 ♦♦ G722.«.«, - . 
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32 



.?fc:o W el.. ^i^ 

pbl3' • e2. :i) 
pbi4. - e4 . (i) 



bit ;iC C2 flag for H221 *• 3722 *• 
cii 12 ABIT flag for K^il' G-722 
bit 13 NOT USED MUSICAM 
bit 14 HSFFT flag for H221 C722 



set- outputs- of • 

::iNote: for Digicast port B is a host port . 

..That means the following definitions are not applicable. 



pb2 • 
pb 3 • 
pb4 > 
pb5 > 
pb€ . - 
pb7 • 

. pb8 • 
pbll 

. pbl2 



coding vo) 
samprate (o> 
emus (o> \ 
eovld to) 
eollalm to}. 
wd2. tor 
icai \o) 

- eralS ib) 

« e2 (c) . 



r pc2 ■ eg722 io) 



M_PBO 
bit 2 
•bit 
bit 
bit 
bit 
bit 
: bit 
bit 11 
bit 13 
M PBD 
bit 2 



(X:<<$FFE4:; 

■type of data input' (0-MUS:CA«. 1-3722; • 
PCM sampling rate (0 -low, i -high J 
MUSICAM encoding led (O«off, 1-lit alarm; 
input pent overload led {p«off . .l«lit alann> 
encoding at low sampling led ;0»off, .l«liti 
watch dog timer -. 

anal -to- digit converter reset U'normal.^- 0-rese: 
must be . sef tO' 1 ' ' 
HSTTF flag for- H221 ■C722 ** 
(X:<<SFFE5) 

G722 encoding led (O*off. l-lit alarm)' 



leds across panel: ' •■ ■ 

li'Note: for Digicast port B is a host port ■■ 

That means the following def initions, are not. applicable. 



N/A 



1. MUSIGAM encoding led: x:<<$FFE4 bit 4 tamberi 

2 . G722: encoding led: . x:c<SFFES. bit 2 (amber) 

•9.'. main phase." lock, loop ledv • 

IC. encoder overload led: .x:<<SFFE4 bit 5 tred) 

11., encoding low sampling led:' .x:<<SFFE4 bit 6 (amber) 

control the encoder analog- tb-digital .converter reset line 



define, 
define 



SET ADC RESET. 
CLR^ADC^RESET 



;bclr «C . y : <not_appl ' 
;bcir #C,y : cnot^appl ' 



LD:'." test; the MAIN phase lock loop detect 

^define LOCK COUNT .'5'. ;5 successive locks set the Ipck led 



define TST SET PHASE UXTK CD . .'jsct 

define TST"CLR^PHASE"'L0CK""CD * j clr 

define TST'"0N PHASE LOCK LED XADPCM Vjset 

define TST"0FT PHASE LOCK LED XADPCM ' jclr 



«1.X:<<SFFS5' 
«l,x:«SFFS5' 
#l,x:<<SFFE5' 
#1.X:<<SFFE5' 



:band-width: ■ 

; . low order bit of band-width limit code 

; high order bit of band- width limit code 

• . codes: 00 - level 0 CDQ2000 standard band-widths 

;: ci - level 1 .CbQ2000 standard band-widths 

; . 10 • level 2 CDQ2000 standard band-widths; 

' 11 • level 3 CDQ20bo standard band^widths 



define • TST SET LOW BAND WIDTH CD 
• define TST~SET"HIGK BAN5_WIDTH.CD 
define TST^CLR^LOW BAND WIDTH CD 
define .TST^^CLRIhIGH^BAND^WIDTH.CD 

■ TOGGLE 'watch DOG CD ' macro " 



•jclr" - ■#C,y : <hot_appl' 

* O c i r • s -3 » y : <not"app 1 ' 
^jclr .y:<not]^appl 
' jclr y : <not^appl' 
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•i encoder 'hose inrerf ace watch' dpg/cickle. 

;see whac the host expects for a dog tickle and act accordingly , 
; if bit M HFO (host i/f flag 0) of X:M_HSR (host status register} is set:, 
; set^bit M_HF2 (host. i/f. flag 2). of X:M_HCR (host control register!. 

; else ' " 

; .. clear bit M_HF2 (host i/f flag 2). of .X:M_HCR (host cpncroi regiateri 



Dset 

bset., 
jmp 

watch dog 00 
bclr 



#4 ,X:<<SFF£9, watch dog CO 
#4,X:<<SFFE8 ;■ - . 

<_watch_dog_10.. 



■ #4,x:<<SFFE8- . 
: ;j»rktch_d6g_10 
endm 

IN7ERRUPT_H0ST_CD macro 
^ .-wiggle host interrupt :HACK b:.t 14 . of pert b. 



bset . 

nop . . 

nop ■ 

movep 

nop 

nop 

bclr 



#14.x:<<$FFE4 ■■ 

y : word^out . x : < <$FFEB 

#14,X:<<$FFE4 



.•output leds for last frame 



endm 

INIT HOST VECTORS CD 



macro. 



; initialize the encoder host vectors with start-up valid settings 
.; since value is zero, use 30 sub-bands (€750 Hzl 

■ move ,. . #>SO,xO-. 
• move" - . x0,y:host24_word .■■ 
."•■raove. -.■ «>-l.xO ,. " 

■move'; :. xO,y:host2A_word. 

move .#>$0,xO. ■ ' 

move;., ' xOvy : host 2 C_word 

endm- . 

^GET_SWltCHES_CD macro 100? '\ ; 

; copy switches received under host vector interrupt 
; bits 0-4 allow user set audio band width by specifying the upper 
. ; sub-band to be considered for bit allocation. 
; the range is from 4 (900 Kz) to 30 (€750 Hz) 

Note: 30 is the default if the value is not within the range, 

.'move . ■ -y :host24_word, xO " 
- move ■■ xO,y:word_in ■■• \ /' 
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endrti ..v'^ 
'■.•aiTRATE, low/high: get the selected bit rate- ' 

define TST_SET_LO_BIT RATE CD . . * jclr #0,y:<not appl' 

. define TST_SET_HI_BIT_RATE;3cP .. . 'jclr • #0,y:<not2appl' 

;C0pAD,MUS/G722 : get the selected type of decoder input data .. 

define .'TST SET MUSICAM DATA CD ' v jclr . " #0 . y : <Wcrd ^ i^^ 

;ii:2B:B ■ . ^-.-T *■= . . • ■ ' . ^ = 

. define TST SET G722_DATA_CD . . 'fjset #0.y:<not appl* 

. . define. SET"'MaSlCAM_DATA CD . ' ;bclr #0, y: <not"'appi' 

' deifine SET2G722_DATA CD" : ■ . '.;bclr #0 /y: < not "appl ^ 
•;•!"! '28:8 , . ■ ■ ;'. ; ■ ■ / 

;SDAD,L0W of HIGH: get the selected sampling rate" 

;. choice pairings (A/B) are: 16/24 16/32 16/48 24/32 24/48 32/48 \ 

• define TST_SET LO^SAMPLE RATE CD . 'jclr »0,y : <not • appl' 

define TST_SET;2h^-SAMPLE2;RATE2cD 'jclr #0 , y : <not"appl 

■ define "SET LO_SAMPLE RATE CD " ' • ;bclr #0 . y : <not"appl ' 
;Mi28.8 -.; ■ " ■ . ^v'" • • .•■ " • 

define. SET HI SAMPLE RATE CD ' ;bclr #0,y:<not appl*. 
;:i:.!28v8 •■ "-. ." : : ■ 

;MONSTERO: test whether- cnbrio or stereo framing selected . 

define TST_SET_MONO_STEREO CD -\ • ■ 'jclr #o;y:<not_appl' 

define . TST_CLR_M0N0"STERE03CD : 'jclr #0 »y :<not_appl' 

.;JOINTCE: test for joint Stereo framing (if not mono selected above) 

. define . TST_SET_JOINT_STEREO_CD ■ 'jclr.' #0,y:<not appl* 

define TSt^CLR^JOINT^STEREQ^CD . • ' jclr «0,y:<not]^appl' 

;set which type ISO CRC-16 checksum OLD (0) or MEW !(1} 

. • define TST_SET_NEW_ISO_CRC_CD ... . 'jclr #0.y:<not appl' 
■ define ■ tST^CLR_NEW_ISO_CRC_CD V .'jclr . #0 , y : xnot^appl ' 

;E4: see if decoder: is framed or. force MUSICAM at LOW sampling rate 

define TST SET DECODER_FRAMED CD - 'jclr «0,y:<not appl' 

define TST^CLR^DECODER^^FRAMED^CD 'Jclr #0,y:<not3appl' 

;BR0,BR1,BR2: get the ancillary data baud rate 

define TST SET LOW^BADD RATE CD . 'jclr #0,y:<not appl' 

define TST"SET"MID BAUD"RATE_CD . ■ 'jclr #0,y:<not"appl' 

define TST"sET"high_BAUD RATE^CD . • 'jclr . #C,y : <not"appl' 

.. define TST"CLR"L0W BAUD RATE_CD ■ -.'jclr . «0.y:<not"appl', 

^ - . define TST"CLR"mID"bAUD"RATe2cd . .'jclr #0, y : <not"appl '.. 

define TSTIglrIhict^BAOT^RATE^CD . 'jclr #0,y:<not3appl' 

••stimmary alarm relay: alarm relay as ispciated with alarm LED 

define SET ALARM RELAY 'CD . ' . ' ' ;bclr #0,y : <not appl' 

define CLR"ALARM"RELAy CD ' ;bclr #0 , y : <not appl'. 

define TST"SET aDoim RELAY CD 'jclr ". «0,y:<not appl' 
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. . define TST_CLR_AlJVIW_teIAY_CD^ ^ ' - - . ''•3 - 

;define state; for all leds on and cff. for, start -up 



Wo . y : .<r.ot_appl; 



define .OFF LED5 CD. ' $000000 
define. ON.LEDS.CD ; . . •$000000; 



.;c£f if bits set.'. . 
;lit if bits clear* :■ 



;tum. leds off: 

define .• 
• . define 

• -.define . 
define 
define 
. define 

, ' define 
define 
define ■ 
define 
define 
define 

; turn leds on: 

define 
define 
define 
define 
define 
deiEine 
define 
define 
•./define 
• define 
define 
define 



OFF MUSICAM^LED^CD".,. 
0FF"G722 led CD"" 

off^low sampling led_cd . 
off""overload LED^^CD 
off"'mono_ledIcd " • 
off^stereo led cd -' . 

off" JOINT LED CD 

off^phase^lock led_cd 
off"phase_lock_lep_xadpcm 

OFF^ALARM_LED_CD 
OFF aiTALLOC_LED ■ CD-. ' 
OFF^REED SOL LED CD' . . .. 



ON WaSICAM LED_CD \- . 
0N''G722 LED CD 

onflow sampl1ng_led_cd ;.: 
on"overload_led_cd 

-CN^MONO LED^'CD " . 
ON STEREO_LED_CD 
ON* JOINT LED CD 

■ on'^phase^lock led CD 

0N"'PKASElL0CK]^LED2XAi3PCM 
ON^ALARM^LED^CD 
0N'"BITALL0C LED^CD : 
ON^REED S0L"LED CD 



'■•;bclr;. 
' ;bclr • 
;bclr 
'bclr 
• ;bclr 
• ;bclr 
' ;bclr 
fbset 
' ;bcir 
• ;bclr 
'.:bclr 
'bclr 



# 0 , y : 
#0,y: 
#0,y: 
#l.y: 

1*0, y: 
«0,y: 
#0,y: 
«0,y: 
«0.y: 
«0,y: 
«0..y: 

«2,y: 



<not_appl ' 
<not]2appl.'.: 
<not_appl'. 
<word_out ■ 
<not_appl • 

<nct32ippl ' 
<not_,appl ' 
<word_oUt ' 
<not_appl ' 
<not^appi ' 
<not_appl'. 
<word out': 



'jbclr 
;bclr 
' ;bclr 
'bset 
' ;bclr 
' ;bclr 
';bclr 
'bclr . 
• ;bclr 
• ;bclr 
• ;bclr 
'bsec. 



#0,y: 
«0,y: 
#0,y: 
«i/y: 
#0,y: 
«0,y 
«0,y 
no,y 
no.y 
no.y 
no.y 
n2,y 



<not_appl ' 
<not_appl' 
<not3appl ' 
<word_put ' 
<not_appl ' 
:<not~appl' 
: <not""appl ' . 
: <wpr3_out . 
: <not_appl' 
:<not3appl' 
:<not^appl'" 
: <word out ' 



define SET_LEDS_CD 



• movep y : word_out; , y : < < SFFFF ' ; 



•DECODER hardware settings for leds and tines 

M iPBO bit 6 : 



.-control the decoder devices: 

phase lock loop. signal line: 



; control the decoder devices: 
; tested inputs of : 

^ ■ ••.y:<<$FFFF-. 

;;; BRAD encodc select data type 
; ; ; LO/HI encode sampling rate 
; CODAD decode select data type 
; MUS/G722 decode sanqpiing rate ;. 
; SRAD decode bit rate 
;;; 32/4B not used • , 

; ; ; low bit encoder band width^code 

? high bit encoder band width code 
; baud rate code low order bit 
; baud rate code middle bit . . 



;;bit 

; ;bit 

.. bit 

■ bit 

.bit 

; ;bit 

? ; bit 

;;bit 
bit 10 
bit 11 



(0-MUSICAM 
{0«high. 1 
(0«MUSICAM 
(0-high, 1 
<0-56Kbits 
(O«low, 1« 
{0-0,1-1) 
(0-0, 1-1) 
i 0-0, 1-1) 

to«o. 1-i) 



swl 



sw3 



1.G722) 
•low) 5W2 
1-G722) 
low) sw4 ■ • 
l-64Kbits) swiS 
rhigh) sw€ 
sw 1 back panel 
sw 2 back panel 
sw 3 back panel 
sw 4 back panel 
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baud raze code high order biz . 
■;CRC-1€- Sir- or-NEWJl) ISC. 



bit 12 tO«2, i«: 
■ ; ;bil. 13/ ;iO"Cld. 2 



sw .£ back panel 
•new I sw 5 fcacic ? 



s'Note: for Digicasc pore B is a host port . 

Thai means the following definitions are. not applicable 
- . M PBD ix:<<SFFE4) 
...fTPBD (x:c<SFFE4.i ■. . ' ■ 
. l-L5--loop back • - bi 

LD mam phase: lock loop signal ' line:, bit 



S2 .K5TTF flag f or H22I . G722 bit 13 . 



C • t lahot loop back . 
€ .(l^lock 0»nct) 



O«locp baz 



set outputs' of : 
..::!Note: for Oigicast 



That means .the 



. pbl « bitrate (o). 

pb2 » coding (p! 

pb3 « samprate ioV 

pb4 a 32k (o) ' ■• 

pb5 - 4 8k {O; 

pb7 « wdl (o: 

pbe « idarst i6) 

pbS • eO (o) 

pfclO »■ el' to} . 

pfcll » decralS (o) 
.pbl2 « e3 (o) 

pbl3 « e2 tol 

pbl4 » e4. (o) 

pc2 • alrmrly <o) : 



porr B is a host port ■■' 

following definitions are not applicable. 
M_PBD .ix:<<SFFE4) , 
M_PBD (x: c<SFFE4 ) . 

bit 1 deterrained framing bit rate iO«low: 

2 type of , data to decode (O-WUSICAK. 

3 determined sampling rate (O«low, ix 

4 sampling rate low led- 9 (0-pff , 

5 sampling rate high. led-lC 0«cff -2 
7 watch dog timer lO-clear. Inseti. 

6 digital -to*analog reset (l-nsrmal, 
9 CO flag for K221 G722 

bit 10 C2 flag for K22X. G722 •♦ •, *■ 

bit 11 boot top CD or bottom (0) must be 

bit 12 ABIT flag for H221' G722 *• .. . 

bit 13 NOT USED , MUSICAM 

bit 14 HSFFT flag for H221 G722 

M^PBD (X:«$FFE5) ■ 

bit .2 alarm 'relay .. 



bit 
bit 
bi: 
bit 
bit 
bit 
bit 



1-high; 
L«G722/ 

ligh.-.-- 



c « reset * 



leds across panel: 

encode 1. MUSICAM data led:- y:<<5FFFF bit 0 (amber) 

encode 2. G722 data led:: y:<<SFFFF b.ic 1 (amber) .*** 

3. MUSICAM frames led: y:«$rFrF bit 2 lamber* . 

4..G722 input data led: y:<<SFFFF bit 3 (amber) 

5.. framing. alkrm led: . y:<<SFFFF bit 4 .(red) 

. 61 main phase lock loop led:. y:<<SFFFF bit 5 .(green V . 

7. decoder overload led: y:<<SFFFF bit 6 (red.' 

8. crc bit. error led: . y:«SFFFF bit 7 Ired) . 
encode 9. encoder overload led: y:<<SFFFF bit 6 (red) ; 
encde IC. main, phase lock loop led: y:<<SFFFF bit 5 (green- ••• 
encde 11. low (1) vs hi (0) san^ling: y:<<SFFFF bit C (amber) 

.12, low (1) vs hi (0) sampling: y:«5FFFF bit 0 (amber; 



;!CA:-: control, the decoder digital-to-analog converter reset line. 



define 
define 



set dac 3ueset 
clr"dac"reset 



";. ! LB:. test the . -loop ■back. , • 

def ine ••■'TST SET LOOP BACK^DCD . 
• define . TST^CLR"loopIback_DCD 
define . TST"SET"L00P BACK^FRADPCM 
. -define. TST^CLRIlOOP.BACK.FRADPCM 

. ; : tiast the . MAIN phase lock, -ioop , detect 



'bset 
•bclr 



, ' j clr 
'jclr 
. -jclr 
: 'jclr 



:«2.X:«SFFE5'* 
«2,X:«SFFES' 



«0 ,y :<not_appl 
«0,y :<not3appl 
*C ,y :<nct~appl 
« C . y : cnct^appi 
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' " ".. define .TST^SET PHASE LOCK Dcb • * jset • #c;x: <<SFrE5 " ' 

. : define;; TST_CIJl_PHASE_L0CK3t)CD --^ . • jclr ' #0>x:<<SFFE5 • " 

TOGGli^WATCHJXXS^CD' macro '- ; 

; encoder, host interf ace watch dog tickle • 

•see what the host expects for a dog tickle and. act accordingly 
; if bit M HFO (host i/f flag OJ of X:M HSR (host status register) is set, 
•; set"bit .M_HF2 (host i/f flag 21 of .X:M_HCR . (host control register) • 

else • • '•■ 

clear MJXFl (host i/f flag 2) of XiM^HCR. (host control , register) 



• jset \ 
bset 

watch_dog o6 
. . . bcTr • 



#4,x:<<SFFE9, watch dog CO 
#4,X:<<$FFE8 ■ " ^ " . - . 

<_watch_dog_10 . 



.:.«4.x;«$FFE8' . 
_jrfatch_dog_ip ■ " ■ • ■ 
: " endm--.-.'; 
INTERRUPT_HOS?_DCD macro- . 

;wiggle host interrupt !KACK bit 14 of port b, 
■#i4,x:«$FFE4..- .. 



bset 

■ nop •' 
nop- 

mo vep . y : wpr d_out , x : < < SFFEB 

-nop- . " 

nop' 

bclr #14,X:<cSFFE4 



;output leds for last. frame 



endm 

IN:t_HOST_VECTORS_DCD. macro' 

; initialize the encoder host vectors with start-up valid se:t tings 

move. . #>SO/xO ■ ' ; ■ 
• move:/ ...x0,y:hO8t24_%#ord '.•'..•*,•. 

_ endm; /• ' ' ' 

;GET_SWITCHES^DCD macro LOOP. "' 

; copy, switches received under host vector interrupt . 



move 
move 

endm 



y: host 24 *#ord.xO 
:'x0,y:wor3_in 



; BRAS, low/high:; get. the- selected bit rate. 
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define 

define. 

define:- 

define 

define 

define 

define 

define 

define 

define-. 



!26.B 



define 
def ine 



TS7SE7 AUTO BIT RATE DCD' ■ 
■T£t""c:j^^AUT0~B:T~RATE"3CD . 

tst^set^autc^bit^rate'fradpcm . 
tst*clr3*^^"sit2rate"fradpcm 
tst"sset auto bit_rate fradpcm 
tst"sclr"auto~b I t^rate^fradpcm 

TST"SET Zo bit rate DCD •. 

• tstIsetIhi"bit~rate"dcd ■■ • 
TST set lo''bit""rate fradpcm . • 
tst^setIhiIbitIrateIfradpcm 

SET LO BIT rate DCD 
SET^K I'B I t'RATE'DCD ■ 



/3Cir 
' jclr 
'jclr. 
:'3clr 
•jclr 
• jcxr. 
>jclr 
•jclr: 
/jclr. 

.;jcir: 

'.;bcl: 
■'.;bclz 



«C . v-: 
, «C-.y: 
#0. v: 
#0.,y: 
1*0. y: 
#o.y: 

#0,y-: 
It0,y: 
»0.y: 

nz.y. 



«ncc^ 

■<ncz[ 
<nct 
<not 
<not 
<noz 
<ncz 
<nct 
■<nct 



•PF-'- 
appl' 

appl' 
appl 
appl' 
appl- 
aPF^' 
^aPF^' 
.appl: 



It0,y; «noc_appl' 
#0,y : <nct~appi* 



?C0DAb,MUS/372i : get the selected type of decoder, input data 



. ■■ define . 

define ■ 
.'. define 

define 
.- -define 

define' 
- • define 
'. ■ define 

define 

define 

.•■ . define" 
define* 
• V:28.e ■ .■ 



tst set auto codec data dcd ' ■ . : 
tst"clr'"auto^cod£d'data'"dcd ,. .■ 
tst'set^auto^coded^data^fradpcm: 
tst"clr"auto^coded^data~fradpcm 

TST~SSET AUTO CODED DATA FRADPCM 

TST^s clr'auto'coded^data^fradpcm 
tst"set musicam data dcd^ . . ■• 

TST"SET''G722 DATA DCD . 
TST^SET^KUSICAM DATA FRADPCM . 
TST'SET G722 DATA FRADPCM. 



jclr. 
jclr: 
jclr 
jclr 



SET MUSICAM DATA DCD 
.SET"G722 DATA DCD 



'jclr 
•jclr 
•jclr 
'jclr 

' ; bcl's 
• ;bcl2 



. #0. y : <nct_appl' 

no,y:< no t_appl * 

ttO, y : cnot^appl • 

#C , y : <nci2appi'' ' 

'^sclr #0,y :<nst_appl' 

'3sclr #2,y : <not~appl' 

tlO.y : <nct^appl' 
. #0, y :.<not_appl* . 

IIO,y : cnot^applV 
' HO , y: cnpt^appl.' 

* 0 , y : <not_^appl * 
»0,y Knot^apipl ■ 



•SDA3.1oW or high: • oet the selected sampling rate 

; choice pairings (A/BJ are: 16/24 16/32. 16/48 24/32 24/48 32/48 



:.29 . 0 



ae t me 
'.define 
' define 

define" 

° def ine 
.define. 



:28 . 8 



TST SET_AUTO SAMPLE RATE DCD 

tst'clr auto^samfle"rateIdcd 
tst'^set'^lo sample rate^dcd . . 
tst^set^kiIsample^rate^dco . . ' 

• SET -LO sample RATE^^DCD - • 

set^ki^sampleIrate.dcd .... 



'jclr 

;jcir 

'jclr . 

';bclr 
• ;bclr 



#C , y : <not_appl 
#0, y : cnct^appl 
(>0>y KHOt^appi 
It0,y: <not2appl 



OOvy : <not^appl 
#0,y:<not2appl 



;E4.; inform the^ encoder:.- 

' .def ine SET^DSCODER_FRAMm_OCD ■ - 

;DSW7: mute- the "decoid'er output *- 

" ■ define .TST SET MUT£_OUTPLT_DCD - 
def ine : TST^CLR^MUTE^OUTPUT^DO- v.. " 

; DSW6 , DSW5 :, test . the monc output channel- requirements 



/.;bclr; *#G.y:cnet^appl' 



•jclr.. 
'jclr- 



define ' TST SET MONO ONE^CHANNEL^DCD 
= define TST"CLR"mONO'ONE_CHANNEL.DCD 

define . tst^set"mono"left_or_right_dcd 
define ' TST'CLR^MONC'LEFT^OR.RIGKT^DCD 



'jclr 

jclr- 
.'Dclr, 
.'jclr;. 



#C.y :<not_appl 
#cry :<not3appl 



« C , y : < no t _app 1 * 
#Q . y : cnct^appl ' 
. «0.y:<not_appl' 
.#0 , y : <nct]^apF 1.': 
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:s be activated sometime in CDQIO.CO. 

■..■. define TST SET FADS OUTPUT DCD 
define : TST"CLR"'FADE'"OUTPUT"dCD. 
define . TST SET FADE"UP DCD" r 
define TST^SET^FADE^OOWN DCD. 

. define FADE INCREMESt 'I' ■ 
define FADE""sOFTEST . '40^ 

. define : FADE^START UP '20* 

'■ ■ define FADE'^FRAMES - '2' ■ 



* jclr. #0.y :<n6c^appl' 
• jclr.. no.yz <noc"appI • 
'jclr #0, y :<not_appl' 
•jclr-. «0,y:<ncc_appl' 
; 2 Db per frame ' 
;max of down 60 Db 
;max of stare up 40 Db 
: .-fade every N. franies 



;LZNS£Lp,LIKES£Ll: test if line 1 and/or line 2 is selected 



define TST SET LINE 1 SELECT DCD 

define TST"SET"LINE"'2"SSLECT'"dCD 

define TST""CLR"LINE"l"SELECT""DCb 

define TST CLR"'LINE"2 SELECT^DCD 



* jclr 
'jclr 
' jsec 

• jset 



#0. 



y:<not_appI' 



#Oiy:<nor_appl' 
#0 , y : <not_appl * 



;;DIAGNOST (ANCELDTA) 



#0,y :<noL_appl,' 
test whether diagnostics programming is to be exescuted. 



•define 
define 



tst set diagnostics dcd 
tst'"clr"diagwostics"dcd . 



: ' j clr, #0 , y : <n6t_appl • 
'jclr #0.y; cnot^appl' 



;BR0«BRl,aR2: get the ancillary data baud rate 



define. TST SET LOW BAUD RATE DCD 

define: TST"sET"mid"BAUD"RATE"DCD . 

def ine TST SET HIGH_BAUD RATE_DCD 

define. TST^CLR'LOW^BAUD RATE_DCD : 

define TST^CLR-MID^BAUD^RATE DCD 

define TST CLR^HIGH BAUD RATE DCD 



'jclr. #0.y:<not_appl' 
'jclr #0,y: cnct^appl' 
'jclr . #0,y:<not2appl* 
•jclr . «0,y:<not_appl' 
,'jclr '^#0;y:<not"appl' 
'jclr . #0/y:<not2appl' 



;BR0,BR1«BR2: get diagnostics code when DIAGNQST (currently ANCELDTA) is set 
dip switch interpretations . for diagnostic operation 



def ine TST SET LOW_DIAG CDDE_DCD ' jclr 

define TST^SET'^MID DIAG"C0DE DCD 'jclr 

define TST^SET^HIGH^DIAG CODE^DCD 'jclr, 

define TST^CLR LOW DIAG_CODE_DCD 'jclr 

define TST_CLRImID"'dIAG_CODE DCD 'jclr 

define TST CLR HIGH DIAG CODE DCD. 'jclr 



«f0. y:<not_appl' 
fro , y : <not*appl ' 
»0,y: <not"appl ' 
fro, y : cnot^appl ' 
frO ,y : cnot^appl' 
frO,y:<not2app'l' 



.•summary alarm relay: alarm relay associated with alarm; LED 



define SET^ALARM RELAY^DCD . 

define CLR_ALARM~RELAY_DCD 

define TST_SET_ALARM RELAY^DCD 

define TST CLR ALARM'rELAY DCD 



• ;bclr 
.' ;bclr 
•jclr 
'jclr. 



frO, y : <not_appl' 
frO,y :<not2appl' 
frO , y : <not_appl ' 
frO,y:<not_appl' 



;define state for all leds on and off for start-up. 



'define" 
• define. 

.vturh leds of f : 

. .. define. 
. : define, 
define 

. . .-.define- 



OFF LEDS DCD 
ON LEDS DCD 



'$00' 
'$ff ' 



;of f if bits .set* 
; lit if bits clear' 



OFF FRAME_LED DCD 
OFF^'CRC ERROR'LED DCD . 

off^'ovhrload led^dcd . 
.off"phase l6ck_led_dcd. 



'bclr #1, y:<word_out • 

' faclr fr 2 . y : <word3out ' 

'bclr . fr3 ,y:<word~out* 

' bset fr 4 , y : cword^out ' 
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def ine OFF REEC- SOL LED DCD : 



. define OFF LC BIT RATE LED DCD 

define . 0FF^HI~BIT*"RATE"LED'"DCD . . 

define 0FF"MUSICAM LED^DCD"* 

; define 0FF"G722 LED 0(5 . 

define 0FF"PHASE_L0CK LED FRADPCM • 
0FF_PHASE_L0CK_LED_MACR0_FRADPCM . macro 

bclr " #57x:<ErSin__^Mem. 
move: <'X: cEratn^Mein.xO 

movep xO,y:<<SFFFF 

endm . . 

OFF^OVERLOAD^LED^MACRO^FRADPCM macro 

bclr" # 6 , X : <Erara_Mem 

movep X : Eram_Mem7y : <<SFFFF 

• V ■ endm " 
; define 
• define. 
■ ■' define 
define 
define 
■ define' 

;curn leds on : 

define 
define 
define 
define 
define 



' bcl r # 5 , y : < word ouz ' 

. ';bclr #C,y:<not appl' 

/ ;bclr #C,y:<not^appl' 

• ;bclr #C,y :<not_appl ' 

. ' ;bclr #C,y Knoc^appl* 

..*.;bclr -ffCy: <not2appl ' 

;curn cf f red led 



rCurn off overload led 



off lo sample rate led dcd 
off"hi"'sample2rate^led"dcd . 

OFF^'mOiJc led DCD 
0FF""STERE0 led DCD . . . ' 
bFF"JOINT_LED_DCD -.- 
OFF^ALARM led DCD . 



ON FRAME_LED. DCD . 
ON^CRC ERR0R"LED DCD • 
ON OVERLOAD LED DCD 
0N"PHASE_L0CK_LED DCD 
ON REED SOL LED DCD 



define ON LO BIT_RATE LED DCD . 
. define ON^HI^BIT RATE""LED"DCD 
def ine ON"musICAM LED^DCD .. . 
define 0N""G722 LED DCD . . 
define . OMf'^PKASE LOCK LED FRADPCM 
0N_PHASE_L0CK_LED_MACR0_FRADPCM macro 
" . . ■ bset #5,x:<Eram^Mem \; . 
. move . X ; cEram JHem ^ xO 

movep. . xO,y:«$FFFF ; 
endm •/ ' * 
0N_0VERL0AD_LED_MACR0_FRADPCM macro 
" bset "#6,x:<Eram_Mem 

movep xjEram_,Mem7y!<<$FPFF 



• ;bclr 
' ;bclr 
' ;bclr 
' ;bclr 
' ;bclr 
';bclr 



'bset 
'bset 
'bset 

'bclr- 
' bset 

V;bclr 
•;bclr 
' ;bclr 
• ; bclr 
' ;bclr 



#0,y.:criot_appi' 
I^0,y:.<not2appl; 
#0;y:<not_appl' • 
ftO;y :<not3appl' 
#0,y:<not2appl' 
#0, y:<not][appl' 



#1 , y : <wprd_out ' 
#2 » y : <word3out ' 
#3 , y : <word~out ' 
#4 » y : cword^out ' 
#5,y :<word~out * 



.#0,y :<noc^ 
#0,y :<noc] 
#0,y :<not[ 
#0,y:enot^ 
#0.y:<not^ 



appl' 
appl' 

appl'. 
*PPV 



;turn on red .led 



; turn . on. overload led 



endm 
define ^ 
define 
define 
define 
define 
define 



ON LO SAMPLE RATE LED_DCD * ;bclr #0>y:<not 

0N"HI'"SAMPLE~RATE'"LEP_DCD .';bclr #0,y:<not 

0N"M0i50 LED_DCD " . : . ' ;bclr #0,y: <nbt 

ON"STEREO led DCD ' ;bclr »0,y:<not 

0N"J0INT_LED DCD • .' ;bclr. . #0, y : <not' 

0N"aLARM LED^PCD • ' ;bclr „ #0,y : cnot 



.appl'. 
.appl' 
.appl' 
.appl ' . 
.appl • 
.appl'; 



define SET_LEDS_DCb 

define TST SET CRC ERROR^DCD 
de f ine TST^CLR^CRClERROR.DCD 



' movep y : word_out , y : < < S FFFF ' 

. 'jclr #0.y:<not_appl' 
' jclr #0,y:<not"appl' 



;define macros for getting the encoder and decoder external switches 



GET BIT RATE CD macro : 
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; encoder incerpret.. che external . swixches ' for : the . framing bit rate 



• move #>RATE_LO,xO 
I • !28 .8: force low bit rate 



i.start- with, lower KB it rate 



TST SET LO BIT RATE' CDv grte a'- 
move . '"#>RATE3hi.xO . " . . .-otherwise, use higher KBit rate 



? ! I l^grte^a 
. move 



.xO,x:tstrate :[ 
• endm ' . ' ' 

GET_FRAME_TyPE_CD raacrb 

micro encoder only hiandles mono frame .type 



;set selected rate ,\ 



. move 
move 



#>MONO.xO.: 
,x0.x:tstf rme 



determine . the NEW ' or OLD ISO CRC- 16 specification 
bclr .»CRC_OLD_vs_NEW,y:<stereo 
TST_CLR_NEW_ISO_CRC_CP._gtyp_a . 



;0«OLb ISO specification 
;1-KEW ISO specification 
; if not use . NEW CRC. done 



': MiniCodec board FORCE new ISO crc 

bset «CRC_OLD^vs_NEW,y:<stereo 

::;jgcyp.a 

': default to old CCS -CDQIOOO' s 
■ ..bset, SO.xjtstoccs" 

endm ■ ' • 'V 
• GET_CODE_TyPE_CO mac?"© • 

.; encoder interpret the external . switches for;' the' type of coded output 
; MUSICAM frames or G722 .. 



;i«NEW ISO specif ication. 



?l»old CCS .CDQ2000*s 



;!!!28.8: force MUSICAM . 

TST SET MUSICAM_DATA_CD,_gcde_a 
;•!• bset '"#0,xjtstcode 

OFF MCSICAM IiED_CD 
; ! ! 1 . . 0FF3I-0W_SAMPLING_LED_CD . 

ON G722''LED_CD. 
' SET_G722_DATA_CD . •. 
;!!S, jrap" <_gcde_b . 



r ! J I gcde a 

" ON MUSICAM^LED CD . 
OFF G722 LED CD 
set"mosicam DATA^CD 



Vindicate G7 2 2 output 

;tum off MUSICAM indicator. . . 

;tum off low sampling rate indicator 

;tum on G722 indicator 

';set line for encoder G722 



•turn on MUSICAM iadi cat or 
.-turn off G722 indicator 
.;set line for encoder MUSICAM 



t ! ! !_gcde_b 
. endm 
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; micro encode^r . handles low and high' sampling races 

.;1'!-2B,8: force low sample rate 

'!!: TST SET LO. SAMPLE RATE CD, gsmp_a . .; 

' il l bset ''#o7x:cscsfnpl ~ . . . . .-indicate high K sampling, rate . 

' • ' • , OFF LOW_SAMPLING LED CD . ;tum off low sampling rate indicator 

!•!!.: . sEt2hI_SAMPLE_RATE_c5 . . . ; set. line for high sampling rate.; . 

,-; !!:■ : jmp~ ^/■<.gsmp_j3 . ' 



. 1 1 > 



;l!igsmoa ■ ■ 

ti'" TST SET G722 DATA CD, gsmp b. ;do not turn on if 0722.. 

' " ' - . ON LOW SAMPLING l£d CD " . ;tum on low sampling rate indicator 

SE? L02SAMPLE_RATE_CD... ;.set. line for low sampling rate. ; 

■gsmp^b . \-- . ...•■■.'•*;. 

^, ' .endm. ^ • v. ^; ; ••■ 

-GET^BANDJJIDTH^Cp macro ■ .- 

.• encoder interpret the external switches for the band-width code 
;. to set band-width based on frame . bit rate and type of framing 

.11' TST CLR LOW BAND WIDTH CD, gbnd a ;check switch to interpret as 0 . 
]\]\ . bset "«0.x:tstband s see the hand yid^^ 

..III..-. . ■ •• ' . • ■ •" ■ . ; ■ ' ' ' ' ■ ' • ' . • ■ 

; ! I I gbnd a/'- ■ ■ ■ " • ; ■ ^ 

- .Ill TST CLR HIGH BAND WIDTH CD,_gbnd_b ;check switch to interpret as 0 -. 
' I ! i bset" "in.xTtscband ;set the band width code; high bit on 

..; t ; :_gbndj3 ' 

; bits 0-4 allow user set audio band width by specifying the upper 
'. • sub -band to be considered for bit allocation. 
' the range is from 4 (900 Hz) to 30 (6750 Hz): - 
.. Note: 30 is the default if the value is not within the range .. . 

• • • • move . y:word in,x0 ; get sub -bands f or y : <usedsb ; . 

]\[\ move -xO,x:ticband • . \ .-put .value in the new 1/p . 

move xO,y:bndwdth ;& put value in the current 

-endm. ^ ■ . 

•GET_BAUD_RATE_CD ;macro'. ." 
'■: ). encoder -interpret the. exteitial to get .ancillary data baud rat^ . 



.Ill 
I • • •* 

; ! I 1 
.lit 



TST CLR' LOW BAUD RATE CD, gbaud.a ; check switch to interpret as 0. 
bset "#0,x:tstBaud " , / ;set the baud. rate low bit on ;. 



TST CLR mid baud rate CD, gbaud> ; check switch .tc^ interpret as 0 
; i : ; "et ■ #l,xTtstbaud ' .;; . ;set the. baud rate middle, bit on 

: ; ; ;-^^*^sf^cLR high baud RATE_CD...gbaud_c ;check switch to^interpret as 0 

bsk "#2,xTtstb5ud^.^^,^.^ v. 



.Ill 



1 1 i^gbaud^c 
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; -decoder extesrnai .switch, iwcros';.- '\ 
: Gt7JBlZJRA7ZJ>CD:'maLCT0 • ; . 

' ; decoder' interpres . zhe exrerhal . switches for the , framing bit rate' 

■; begin with raw' code." for .•^lower; 'framing -bit .Tate/ • clear.. auto:. seleci flag.- ■ ., 

■ move • ttsRATE^LO.xC . 
;i!:2B.e:" f orce. low bit rate 
:.:[\\ ■■. bclr . . ^ »AUTO_SELECT_Bir_RA?E.y:<ctlfigs ■ \ " ^ 

move tautorate, ro" . ~ . . :addr of cur r bit auto select state 



1 1 1 



; : ; ; . if net auto, se.lect* .switch- .is seti . go by "the. selected' switch setting 

;•: : i . TST^CLR^Alirb^SIT^RATE^DCr ._grte_c •; if not' auto': select , : tes^ ether sw _ 

; I 1 : ;if in loop bacic, set -the. bit rate to high Kbits 

•TSTCLR LOOP BACK OCD. grte a. ;if- not-, loop,' continue . ' • ' ' 
move ^ '"«>RA7E_Kl7xC . • set' higher KBits raw code 

•:jtRF. '; <„?r-eZe ' ;instaii .chosen bit rate • 

; i'! i'i^grte^a. • :'* ■ . -■ 

;il.!:;'see if already in \aut6- select' bit rate . '■ 

';\\\ 'jset . #0/x:.(rC) ,_grte_b . •• . /if already, in. auto, skip next. 2 stmts • 

• 1 : : ;set save code as in auto select bit rate and indicate switch changes 

. bsec #C,x:(rO) ;bit 0 - 1 • AU70. SELECT . 

: v.. bset' ■ ' «4 . y : <not_appi '.^.-indicate a switch change 

.1 :.:":_grte_b ; • 

; : : ! ; set contrcl flag to perform auto select cf bit rate . " 

•■:!:..■'.' bset "-' #AUT0_SELEC7.B:r_RA7E.y:<ctlf Igs • 

bset' #C.x:auto8el ■ ■. 
; ! I : move.. y:fnnrate.xO / ;use last rate tc start : 

rii: ' jwp <.grte_e 

.;!.:*:; . set the. bit rate " as; selected by; the switch " 

• ; ! ; :_crte_c • '• ^ " " ■■' ■ 

: i;8ee- if ' currently in' auto select" bJLt. rate . 

jclr #0.x: trC* , grte^d : ■■ . ;if hot in auto/ sJcip. next 2 stmts 
!; clear save code as NOT in auto' select . bit. rate and indicate switch changes 



•J.I • . 



I'll ■ bclr - *0.X: (rO) - ;bit O • 3 - KCT AUTC SELECT 

ii : bs5t : #4!y:<nct" appl ... ' . * : rindicate a switch change . 

v\ \ arte ' /"■■■•\" '"-'■■"■".•. 
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; : : : ;se€ 

move. "*«>RATE3h:.xO ^~ /r";;otherwis«.. use higher KB it rate 

. move - ■•:xO,x:tstrace' ;ser:. selecced rate. ... ■ 

endtn '\. ' .' ^ ■ '• ■■ - ' \ '': ■ • ■ 

SE7_FRAME_TyPE_DCD macro. ' 

.decoder interpret the external switches for the frame type 
(not appiicableT- • . 
however, set the current mono frame output channel parameter . . . • 

• clear the' mono but both channels flag and set the flag. if needed' - 

bset «MONO_OUT BOTH, y: <ctl figs ;mono out. both channels " 

TST_CLR_MONO_ONE_CHANNEL_DCr,_gfrTC_a • 

bcir .""«MpM0.0l7f_B0TH,yT<ctlIlgs " . ;mono out one channel 
■_,gfrm_a -V"^ 

; clear the mono output one channel flag, indicating LEFT 

and set the flag to the RIGHT channel if needed . . . ... 

bclr #MONO OI7T_CHANNEL,y:<ctlflg8 imono one channel out LEFT 
TST CIJl M0K6^L£FT_pR_RlGHt_DCD. gfrm^b 

bset "#M0NO^OUT3CKANKEL,.y:<ctIf Igs* ; mono one channel out. RIGHT. 

^gfrx_b 

•/ ' 'endm 

• GET^CODE^TYPE^DCD- 'macro. - " 

; decoder interpret the external switches fcr the type of coded input 
; :....* MUSICAM frames or G722 . 

.-starts -out as MUSICAM (default);" clear auto select f lag ^ 

;!l!28.e:':force MUSICAM • 

bclr . #ACTO_SELECT_DATA.TyPE.y:<Ctlflgs 

• •. -move' ^''^ sautocode.rQ- . 

!- ! ! ! ; i f not auto select switch is' set . go by* .the selected switch * isett ing . , ; 
ill:' .TST_CLR_AUTO_CpDED_DATA_DCD,_gcde_b ■ . 
. • : : ! ;if in ioop :bacJc,"; leave the data type as'MUSICAM, ;■. 

,11.1, • '. ■. • ■ , • ■ . 

TST_SET_L06P^BACK_DCE._;gcde_d ; if in loop, . done selection 
;!S!;see if already:in = autp seUct code type". 
; : .1 : . .: j set' . ' #0 . x :. ( rO , _g-de_a . - ^ already in aut c . skip next 2 st-t s : 

• , • ' ■ '• "•. .' . ■' •' ■' -. ■ • '•• • ■'' • . ■ ' 

*; : : : ;set save code as . in auto, select code type and indicate switch changes 



• I I I 
.,1*1 
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' -biset * • , «ci..x:-ir6j ^ ' ■■ . • ..;bif o * i '» actc siiErr. 

; : : r' • •. . bsec • •i»4.y :<riot^appl ' indicate -a switch • change' ■ 

.;.M-.:_gcde_a": • ' ., . ■' v.-*"' : 

: III : set contrc^ flag to perform auto, select ■ cf , bit rate' 

';ii:\ • bsev , ••■«auto_se:*ect_data_t^^ • 

; ! :!: bset UO/Xrautosel" ■ 

set to. auto select, -.continue- with previous' type of coded, data-.' • '•■ 

-.;!::' * move • . ynputcde", xO ■...,"'•. 
i : : ; move'' xO.x: tstcode ■ .'.-.indicate last input type * 

. jmp-.'.. ;--<^gcde^d ■:*. ■ ' ' •■ 

! 1^: :_g=de_b ••. ■ : . * ■ ^ ^ .': V ■ 

;.!.: :;see if. currently in auto • select code type-.' 

' ■ jclr 'tO,x:irC.\,_Qcde_c- net in auto, sicip nexi 2 stmts • 

: .-clear save code as NOT in auto select code type and indicate switch chanoes 
■; i i I • • • ' ■ ' ■ - ■ ■ •- " • 

; !.•: bclr , #0.x: (rO) . . ;bit 0 « 0 • NOT AUTO SEl-ECT . " 

; ! 1 1 . bset #4 , y : <not_appl . • ;indicate.a switch change 



' \ I I gcde c'- ■ 

J . .T£T_SET_MUSICAM_DATA_DCD:._gcde_d 



bset #0.x:tstcode. . indicate G722 input; .; 

; ! : :^gcde_d 

;! : i ; indicate the switch selection: to encoder for data type • 

. TST SET ENCODE G722 DATA DCD, gcde e.. ;if G722. set that fcr encoder 
SST^ENCOCE^MUSICAM^DATA^DCD * .;tell encoder MUS? CAM 

i.yil:.: jmp" • <^icde_f . . ' " 

• . , " . ~ . ... — . ■ ' - 

; ' i ; i gcde e 

SET2ENC0DE_G722.DATA_DCD. . . ;tell encoder G722... .. 

.lit... . T , . ■ ■ 

; I'l;!-; ]_gcde_f " 

. ".endi ' ^" ■ '.' 

GST:,SAMPLEJU!ITE_DCD macro /:''"!"/ 

; decoder interpret the external, switches for the sampling rate , .•' 
; if select switch is set. see which type of coded data is being input 

; begin" with the- code for low sampling .KHz rate, clear auto select flag ; 

"■" ■ move . 00, xO ' ■ " 

;!'::28.'6: force low sample rate 

..bclr .#AUTO.SSLECT_SAMPLE_RATE;y:<ctlflgs . 

• ;!''•!• "move " <iautosir.pl.ro"-' •■ ; :\ ■ 

; l 1 1 if not auto select switch is set-, go" by. the - selected- switch setting- ■ 
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; ■ TSt^'CLR_ALTC_SAMPLE_iU?S_DCr/jsmp_b r.Dt ■ autc. select . test" ether sw • 
; i:: ;.if in loop back, leave the low sampling :.rate selected 

.»■!... . • • ■ . * •. ■ , . ■ • • ■ . . 

• *.•*• * ■ ' " ' . " * ' • * ■ 

;:*!:; • TST_SET_LOOP_BACK_DCD,_g«Bp^d: . ; if in loop, done selection 

• ' J I ■ ■ . ■ ' . • 

; : :. :.;see. if already in auto "select sainpling rate 

; I ! : jset «0.x: (rO) ..gsmp^a , ;if already in auto, sJtip next 2 stmts 

•!!! ■ ■ • . ■ ■ ■ 1 ■■ ] 

;;!'.; set save code as in auto select sampling rate and indicate switch changes 

' bset, - «0,x: (rOi ' ...... ;bit b - l ■ ACTO select ■. 

; : : : - bset .v. «4 ,y.:<not_appl ^ .- indicate a switch change * ■ /. 

;•'.!! *. ■ ■ ■ - - '' ■ ' •■ ■ ■ 

; !• : : ^gsmp_^a ■ . ■■■ 

;::::;6et coritrcl flag. to perform auto select .of • sampling rate ■ 

- bset ■#AUTb_SEl£CT_SAMPLE_RATE.y:<ctlflgs- ^"^^ : 
bset . #0',x:autosel" " 
; i: V move y :smplrte.xO ;use last sampling rate . to* start. 

;::! . jmp " c^gsmp^d . . 

;!!!; set the sampling rate as selected by the switch 

: i l :_gsmp_b-^ 

.Ill" ~ . . ■ - ' " . . • . . ■ • ■,'•= " ' ■ 

;;i!;see if; currently in auto" select sampling rate " . 

'Ill • ' ■ . • • ■ ■ . " '. . • " * ' ■ 

;1 !!.... jclr. ; #0,x: lr6).,_gsnv;_c . ; . ;if hot in auto, skip next 2. stmts . . 

;!::;.clear save code as NC7 in.auto select sampling rate and. indicate switch. cha 

): :.! bclr'. "" ;«0.x:(rO) ;bic 0 '« .0 «. NOT AtTTC SELECT " 

. bset ■ ■ , .#4.y;<not_appl . " ■.; indicate a switch .change. 

• ' ... 

;*: 1 1 gamp c 

;!!.>". TST_SET_LO^SAMPLE_RATE_DCD,_gsmp_d 



I I I 



move li>l,xO .-otherwisei use high rate 



:^gsmpjd ■•: 

-move ' .-.xO.xits.tsrapl 

; ! ! : ; ; : indicate the . switch selection to. encoder for- data sampling. rate 

:\ii\\ TST SET ENCODE KI_SAMP RATE OCT. : gsmp e ; if high rate, set. for encoder 
; ! J i ; ; SET3enC0DE_L0_SAMPI.E_RATE_DCD - * . " ; tell encoder . low sampling rate . ' 
•;M.!;;' "imp" . <jisn^^t . _ • ' 

■ ; • : ; ; gsmp e ■ 

: ! i ; r SE7;2ENeCDE_HI_SAMPLE_RATE_DCD . ;celi: encoder high sampling rate 

* I I ! • • ■ • - . • . - " .*'•.■. ■ . - . 

; I ! : ; ■; ^"gsmp^f * 

^' endi -/ ."..•;" 1 • . . , . 

■GET..BAUTrRATr_pCD raacro;'. 

; decoder interpret\,the 'external switches to get-"' ancillary. data baud rate--. 
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^' TST_CLr..;*OW^BAuD_RATS_DCS,_gbaud_a ; check switch to interpret as' : • . 
cset .""tiw,x: tstbaad. ".. ■ 7se« the .baud rate low bit cr.;. • 

::\ \ obaud a . 

TST CLR^MID_BALX_RATE_DCr',_gbaud_b' .-check switch to interpret as C • 
; • I : : . bsec .."#l,x:cstbaud •■ Taet the baud rate middle cif or. , ;* . 

abau'd^b ... .... - "■.• 

-;!:l"' TST CLR H:GH_BAUD^RATE_DCD,^gbauc_c : check ' switch ■ to interpret as' 0/ •' 
bset ' .'"#2.xTtstbaud = ^ ■•; .;set- the- baud -rate high bit, or,.- - 

\ "eridm ; • ' ;• ' 

:.GSt_KSTnOS_OFERATION_DCZ: macrO' ' 
;. decoder get external switches for method cf operation : NORMAL ys DIAGNO STIC ; 

endn-- . . - -. ; ■ ' ■ ' ■ r , : ' [ .> • " - • ; ' 

G£T_riAGNO£T:CS_DCD macro • : . 

; decoder get external switches fcr dia;gnostic operation:: NORMA!, ys riAGNpSTZ* 
; : ! : ; if switch set for. normal operation, skip rest of this interpretation 
; \ \: TS7_CI*R_3IAGN0STICS_DCb/^gdiag^c. ; switch set for normal or diagnostics 
;!:"i ;' set the diagnostic code* bits 

;\\ \ TST CLR LOW DIAG_CODE_DCD, ^gdiag^a ; check switch to interpret as :w..'. 
bset .. .""tCxztstmeth : . . " ' : "Tset diagnostic code low bit on 

' ; I adiaa a *. . 
: TST CLR mid DIAG code DCD,_gdiag_b ..-check switch to mtes^jret as . 0 . 

•ii: bset "#l,x:tst!neth ~ "set diagnostic code middle bit or. . 

• i :"^*^*t1t%LR HIGH DIAG CODE PCD,_gdiag_c ;checic switch to interpret as : 
;•: M /. bset. ""ai.xTtstraeth. " ; set diagnostic code high bit or. 

^' _gdiag_c 

. endm . 
■'ver:?y_actc_sample macro " . ^ /• 

; ; : : iDigicast: NOT APPi;CABLE- " 

■ - endm. * . • ''. '] • '-'^ ' V ■ ' . 

';£sr CD02:i2 start with flag 'set* .to decode MPSGrlSO frames: 

.bit 0:". • MPEG-ISC 
•;• ■ 1 - old CCS CDQ's . • 

; ••" bit.C:- C - MPEG-ISO at -24000 sampling 

; : . ■ 1 m old CDOioOO (MiCROJ. frames at. 24 00 2 sampling . 

• T0C_.MAjr5r_STOC_ERR0RS_pCD ' macro . f , ; • • . ; 
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•how ts .handle rhe set "of the RirRAMS .flag .afrer coc*r.ar.y successive 
: " sy:;r paczern failures- - 
/ always do old CCS .CDO's' 

bsec.'. .#o/y:oldccs . VO"ly handle eld CZS'CDQ's 

• bsec *l#y:oldccs. . ' ;old CCS COC f rms' » 14.4 K satnpl^ 

■ jmp • • .<restart. • . - ;restarc/as eld CCS Cps'.s 

■' cndm' ■ 7' . • ■ •. • • • . " •" . . .T' ' 

TCC_MAKY_B:7_ERR0RS^DCD - macro ^. 

.low zz handle the set of the .REFRAME flag after too .thenay successive 
•: ■ cat- 16 bit -errors • .-. "^ 

.. if the cldccs bit is not set., switch fror. MPEG- ISO to eld CCS COC'is' ;. . .. 
if old CCS has already been tried, restore MPEG-ISC. and re frame 

•niove""' #oidccs.rC'- rto test oldccs flag- :fcit C;- 

^. nop .■""**■•':■■■.--■■=.- '•■-;■■.'••■;■ "O" « -MPEG- ISC ■ 

. ■ ■ ■ 1 - old CCS" - ' 

_ciVccs.. / . 

;try decoding frames" from." older CCS. CDQ's' units . 

■'■ bset • ■•■ «C.y: oldccs ■ ;. 'r ;set eld CCS'flag- 

r. I :diDg-. ':' ' ... ' -. ^ ' ■: ■ ' 

■ ■ ■•• • ••; •. ■ ^ ' ■■ • -. ' ■ 

' • nop • \ ''• ■ " ^-^ ' ' " ■'■ ■: •■ 

■ nop; ■ - ••• .; ■.. ' y' . \ ' ^ ' ' . ■ 
.nop" ■ ■ '." '■ .'■ 

■*". nop ■ " "• 

:.;:i:-dbg ■■ ■•'.•'■•v- 

• Tnqp ■• • - creframe ■ ;re£rame,- try old. CCS - 

endif- •.. • . 

;This cede handles the special ancillary data problem. when f ranes have . 

; . toe r.any encoded according to the decoder baud rate and the frames also- 

have the old ISC (CCS) CRC- 16 checksum algorithm for protection: • 
; This condition occurs when trying to determine if the stream ef frames is 
; f rem an eld CCS COQ2000 and are two channel frames at low. bit rates or is 
; the stream from a new CCS with MPEG-ISO frames but are protected 

using the old ISO- ICCSJ • CRC-I6 algorithm-; 

TOC_MWfnf_DATA.ERRORS_DCD TRacro- . "■ \' . 

■ *;old CDCISOO mono frames « -24002. sampling do not appiy tc this '.problem.; ■ 

;:set" . l;l>y! trl; .^tdata^lC -.;'*:-. "jif eld C^ ccntinue-.". 

" ••;if too many errors." reframe using the opposite . old ;CCS->s; MPEG-ISC- with., 
low bit rate two channel frames. 



jset 
bset 
_ jmp 



■«C,y:;rl>, tdata 00 . ... ';if doing '.eld CCS, go switch .te .ISC" 

«o!y:oldccs . .. ;switch to. try old CCS decoding . 

■'creframe' ■ • . ■ .. ' ' = ;re£rame 



tdata OC ■ 

- bsir. ." "•■ «b..y :cldccs. ■.; • iswitch "to" try MPEG-ISO decoding'- 

Owp /;'* ■<restart ■.■ . . :;restart -.-: . ■ 
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^t'data^ic- ■ .* ;• ": . ' :^■ . •" 

■endni'- .. • . ^ ■ ' ■■ 

;define ancillary data baud .rates 'and max byte counts per frame: 

128.8 . ■ ■ . ; 

; ; 14400 . sampling rate » 80 msecs 

r!.i!28,8' ' 

• .. 16000 sampling race "® 72 msecs .; 
;• 24000 sampling rate ® 48 msecs . 

. ,. ■■ - 32000 sampling rate ® 36 msecs 
; . . 48000 sampling rate 9 24 msecs i".' 
; , (baud race ♦ milliseconds « bits received 

; bits received then promoted to next even 8-bits. to yeild max bytes) 



;M_SCCRnnh <see ,pages .11-22 & I1-31) . = 

i '( <:32, 000/000 /^(64 * nnn r) - ir 
; where.32, 000. 000 is crystal, nnn • 



!26.B 



•I 128.8 



1 ! 128.8 



!26.8 



!! '28.8 



!28.8 



define BAUD300 ' C 

define M SCCR300 , . * $662 ' 

9 . ■ • '-: •; \ :•■ 

define BYTES300 16, V3 ♦ 

define BYTES3 00"'24 , '3' 

define BYTES300"l6 '3' 

define BYTES3 00_24 ''' '2' 

3 ■ 

define- BYTES300 32 . ' 2' 

define BYTES300l48 • ' 1* 

def ine BAUD1200 ■ . ^ . . . 

define M SCCR1200 ' 'SlaO' 
3 • • " 

define .BYTES1200 16 . '12' . 

define BYTES1200""24 ; >12'. 

define BYTES1200"l6 '11' 

define ByTES12D0"24 'S* 
^ ■ \ - 

define BrrES1200 32 • ■ '6' - - 

define ;BYTES1200248 . '4' / 

define BAOD2400 . •2* 

define M SCCR2400 'Scf ' 

define BYTES2400 16 '24* 

define BYTES2400"24. • 24 ' 

define BYTES2400^i6 '22' . 

define BYTES24 00*24 . '15'. 

3 •-• ■ ■ : 

define BYTES2400 32 '11', 

define BYTES24 00_48 '8' , 

define BAOD3600 '3' . 

define- M SCCR3600 'SSa' 



•1128.8 



define BYTES3600 16 .'36' 
define ByTES3600_24 - : . '36' 
define BrrES3600. 16 - '33' 



(result rounded & converted to hex) 
baud .rate' . 

V; dip switch code for 3 OO baud 
; set: , clock for 300 baud. rate. 

:;3 bytes (24.0 bits 24 bits i 

;3 bytes {24.0 bits a«> 24 bits) 

;3 byties (21.6 bits .-•> 24 bits). 

;2 bytes (14.4 bits •«> 16 bics) 

;2 bytes. (iO- 8 bits »»> 16 bits) : 
;1 byte (7.2 bits ««> B bits) 

;dip switch code for 1200 baud . 
;set cloc)c for 1200 baud rate 

; 11 bytes (96.0 bits «»> 96 bicsi ' 
;12 byces (96.0 bics 96 bitsi 

;11 bytes (86.4 bits »«> 88 bits) 
; 8 bytes (57.6 bits ■«> 64 bics) 

•6 bytes (43.5 bits 48 bitsi 

;4 .. bytes (2.8. 8. bits «»>. 32 bits; -■ 

;dip switch code for 2400 baud 
;set clock for 2400 baud rate 

; 24 bytes (192.0 bits ««> 192 bitsi 

;24 bytes. (192.0 bits -«> 192 bits) 

;22 bytes (172.8 bits «»> 176 bits) 

,,;15 bytes (115.2 bits»> 120 bics:; 

: ;il bytes (86.4 bits— > 88 bits). 
.; 8 bytes (57.6 bits 64 bits) . 

;dip switch code for 3600 baud 
.fset clock for 3600 baud. rate 

..,;36 kbytes . (288 . 0 bits «-> 288 bits! 
■• .;36 bytes (288.0 bits --> 288 bits'. 
: ;33 bytes (259.2 bits »•> 264 bits: 
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:28.8 



define. aVTska 6 00_;24 • .;. >c'i2' 



define 3YTES3600_32 
define BYTES36pC_4B 



128.B 



define BAUD4800 
de f ine : M_SCCR4 B 00 



128. S 



define BYTES4800 16 
define BY7£54800*24 
define BYTES4800*XG 
define BYTES4800224 

3 

define 3yTES4800 32 
define BYTES4 80C"'4S 



128.8 



!28.8 



define aAUD38400, 
define M SCCR38400 

define BYTSS38400 16 

define BYTES3840C'"24 

define .BYTES38400'"l6 

define BYTES38400]][24 
r " . 

define ByTES36400 32 
de f me BVTES3 iB4 0 q_4 8 

■define 3ACD9600 
define M i5CCR9600 



I M 128. 8 



: :28 . 9 



define BrrES9600_l6 
define BrrES9600 24 
define BYTES9600"l6 
define BYTES9600_24 



define BYTES960a^32 
define .BYTES?600_48 

define BAniD19206 
define M SCCR19200 



I i :28.8 



\l 128.6 



define ByTES19200_16 
define BYTES19200_24 
define BYTES19200_16 
define BYTES19200_24 



define BYTES19200 32. 
define ByTES19.200_48 



■■'11.' 



'4 * 

'S6fii* ; 

'48' 
'48'. 
'44' 
'29* 

••22 -. ■■ 
•IS'- - • 

•'5' ■ 
'Scr 

'384' 
'384* 
'346'.. 
'231*. 

'173.'. 

116 ; 

'6* 

'$33' . 

'96' 
'96' 
'87' 

•'58?; 

' 44 • 
•29' 

•7*. - 
•Si9' 

■'192' . 
•192' 
'173' 
'116' 

'87' 
•58' 



.;22 'b:yces -(172 ..'5- cirs •->.":'?6. bits' . ■.' 

;17 bytes (129.6 bits -«> 136 bits;. : . 
;11 bytes {.86.4 bits .88. bits': . ..... 

■;dip switch code fcr 4 800 baud;, ■ 
;8ec clock for 4800 baud .rate.. 

?48 bytes. (384.: bits -->.394 bits;.- . 

; 48 bytes 1384.9, bits -»> 384 bits*. 

;44 bytes (345/6 bits— > .352 bits; 

;29 bytes 1230.4 bits -«>. 232 bits? 

■;22 bytes' (172.8 bits.— >176 bits,*'-; 
;i5 bytes'(115.2 bits -o> 12: bits 

;dip switch code for 3 84 CC baud 

;:5et clock fcr 3B40O baud rate ; 

;384 bytes :3G72.0 bits «a> 3072 bits: 
; 3 84 bytes v3072.C bits -•> 3C72 bits) 
;346 bytes ;2764.8 bits -«> 2766 bits) 
;231 bytes. (1843.2 bits «•> 1648 bits:. 

;173 bytes (1382.4 bits i384 bits) 
;116 bytes (921.6 bits — > 928 bitsi 

.; dip switch code for. 9600 baud 
;8et clock, for .9600 baud rate • 

;96 bytes (768.0 bits «•> 768 bitsV 

;96 bytes (768,0 bits 768 bits; 

;87 bytes (691.2 bits »-> 696 bitSi. 

;58 bytes (460.8. bits — > 464 bits;. 

; ;44 bytes ' C345.6 bits ««>-352 bits) ■ 
;29 ..bytes (230. 4 . bits ««> 232 cits? 

:::dip -switch code fcr 192:c baud'.. 
■ ;set clock fcr 192 00 baud rate - 

;192 bytes il536.0 bits --> 1536 bits^ 

;192 bytes (1536.0 bits 1536 bits. 

173 bytes (1382.4 bits i-> 1384 bits; 

•;116 bytes (921.6 bits 528 bits'; 

87 bytes (691.2 bits"-»> 696 bits; 
;58 -bytes (460.8 bits. ••> 464 bits) 



rdefine satBpling rate table of ISO OTS.I(»M franH6. header codes:- 



SANrLERATSS 
samplng : 



M 128.8 
1!:28.6 



dc 
dc 
dc 



macro 



if SAMPLE;_RATE_PAIR— SAMI>LE_16K_AND_24K 

■SAMPLiNGRATE^li .' 
SAMPLE ID BIT HIGH.-. 
MAXSUBBANDS.CCS. ' ■ 



; old CCS CDQIOOO sampling at 14 ; 4 K 
;old CCS CDCIO 00- header sampling id b: 
;old CCS CDCIOOO maac sub -bands .1. char.: 
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. MAXSUBBANDS CCS . . " .•Old CCS, CDCIOCC max sub-bahds I chann*' 

.: SAM?1INCRATE_1€ ;oid CCS CUCIOOC samclma .ai 14. "4 K 

SAMPLE^ID^BIT HIGH . . ;old CCS CDQl 000 , header samplino id fci- 

MAXSUBBANDS_CCS . • ;old CCS CDQIOOO max sub-bands 1 channel 

MAXSUBBANDS^CCS ; old CCS CDOXOOO max sub-bands 2 channel 

MAXCRITBNDS^lfi number of critical bands at 14.4 K 

NMSKFRE0S_1? ;num freqs used for coding at 14.4 K 

.■■ SAMPLIKGRATE 16 . ;old CCS CDQIOOO samplma at 14. 4. K • , : 

'■ SAMPLE ID BIT high: ;old CCS CDQIOOC header samplino id bit 

MAXSUBBANDS CCS. .- ;old CCS CDQIOOC max sub-bands 1 channel 

.MAXSUBBAiros"ccS . : -old CCS CDQIOOO max sub-bands 2 channel. 

- .SAMPLINGRATE 1€ : :. ;old.CCS CDQIOOC sampling at 14.4. K 

SAMPLE ID BIT_HIGH ;bld CCS CDQIOOO header samplih? id bit 

MAXSUBIands CCS ;old CCS CDQIOOO max sub-bands i channel 

. KAXSUBBAMDS^CCS j - ;old CCS CDQIOOO max-; sub- bands 2 channel 

MAXCRITBNDS^ifi .. . \; number of critical bands at 14.4 K 

; NMSKFREQS^l? . ; Hum ..freqs used for coding 4t 14.4. K.. '.. 

.. endif ^ ■ .'*;.■•. ■: '. ■■'■ *•: ' v- ^ ■ ■ "* " 

, /• endm" . '." ' ■■. 

;;.define framing bit" .rate ..table • ;•. ' 

•'•BITRATES -" macro 

. bitrates - 

\ •1!:2B:8. " ■■. if- SAMPLE_RATE PAIR— SAMPLE .16K AND 24K . 

::-;::;28.8 . •.■ • " ' ■ ' " " 

;eTiZry for code 0 RATE_LO ; framing bit rate of 28.8 fCbits 

dc BI7RATE_56 . ;ISC frame header code for 28.8 Kbits 

..dc. BITRATE 56. . ;ISC frame header code for 28.8 Kbits 

dc . .OU™56_l6 ;nunr. 24 bit wds 28.8 Kbit frame ® 14.4 K sample- . 

■ . dc . -. OUTB56_16 ;num bits 28.8 Kbit frame ® 14.4 K sample 

dc : . BITRATE 56 ■ ; ;ISC frame header code for 28.8 Kbits 

dc. . BITRATE^se ; ISO frame header code for 28.6 Kbits 

dc OUTM56 16 ;num 24 bit was 28.8 Kbit frame S 14.4. K sample 

dc .;OUTB562[l6 ;num.bits 28.8 Kbit frame » 14.4 K sample 

;entry for code 1 RATE HI '■ . .-framing bit rate of 28.8 Kbits. 

. . dc BITRATE €4 * .;ISC frame header code for 28:8 Kbits. . 

dc • BITRATE""64 ;1SC frame header code for 28.8 Kbits 

• -dc- CUTM64 16 ;nuir. 24 bit wds 28.8 Kbit frame S 14.4 K sample 

rdc".- '. OUTB64"l6 ;num bits 28.8 Kbit frame ® 14.4 K sample 

dc BITRATE 64 ;ISO frame header code for 28.8 Kbits- 

dc BITRATE*64 ;ISC frame header code for 28,3 Kbits 

dc OUTM64 16 ;num 24 bit wds .28.8 Kbit frame S 14.4 K sample . 

dc OUTB64""l6 \ , ;nuir bits 281.8. Kbit: frame « 14,4 K sample 

!'f 123.8 • • .. :'■ •■• 

; : l : 128 .8 ■ :' endif ■'*■.■;;.■ • ^' ' ■■^ / ' ' 

; ;" endm- ■ ■. '• _'.•■■■* 

■.".•define bit 'allocation bandwidth tables' 
■ "BANDWIDTHS.. ■ \macro' 
■ : bnd%rtbl--; ;* '.■•^ '.■ ^-'.t:' 

. ; I : !28:8 .V;. ;. . if SAMPL£_RATE_PAIR"SAM?LE_i6K_,AND_24K. 



• dc 

•••dc "v. 
-••.• •.■-■ -dc ' 
■ ■ . . : dc ■ * 

dc. .-. 
. . ■ dc 

■ dc \- . 
.-.dc ■ 

,.:-..;-'dc. ■ 

dc:-- 

■ dc--" 
.dc-.- 

dc ■ • • 
•-..■dc-^ 
.*... .•■• . dc ^• 
■• dc 

. ;'::!28..e . 

;:: 128:8 
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K3ir- rates low/high « i44C0 sampling 

* dc : USEOSUBBANDS DC 16 ; 
dc : . -LIMITSOTBANDS " •; . 

; dc USEDSUBBANDS 01 16 ; . . " 

• - ■ ' ■ dc ■ .. I.IMITSUBBANDS . " 

■ dc . . USEDSUBBANDS 10 16 ; " ' 
■• •.dc. • . . LIMITSXJBBANDS ~ 

■ ••dc USEDSUBBANDS 11 IS ; 

■; ,dc • •■ LIMITSUBBANDS " ; ... 

dc . " USEDSUBBANDS CO 16 ; 

dc.; . LIMITSUBBANDS ~ ; 

dc USEDSUBBANDS CI 16 ; 

. dc . ■ . : LIKITSUBBANDS " ; 

dc USEDSUBBANDS 10 16 ; 

• dc IIMITSUBBANDS " ; 

■ dc . . USEDSUBBANDS IX 16 " 

• .; dc .. . LIMITSUBBANDS • • 
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rate. low code pb: mcnc band -width • ■ 

- subbands. requiring 1 allocation 
■■ i^i-* * niono band-width- . •■ • ' 
subbands requiring! allocation 
wonc .band -width 
. , • subbands requiring l ailocatibn- 
mono band -width ■ 
subbands requiring l allocaticn 

rats high code 01: mono band-width =- 

. subbands requiring i allocation, 
mono band -width 
subbands requiring i allocation* 

mono band-width 
subbands rcTuiring 1 allocaticn .. 

mono band-width 
subbands. requiring -1 allocaticn " 



•; kSit.'rates. low/high ® 14400 sampling 



!28.8 
:2S.8 



dc" : 


USEDSUBBANDS 00 


-1^ : 


dc 


LIMITSUBBANDS ' 




dc 


. USEDSUBBANDS 01 


.16 ; 


dc . 


..LIMITSUBBANDS ' 




dc.;-. ■ 


. USEDSUBBANDS 10 


16 ; 


dc ■ ■ 


. LIMITSUBBANDS ' 




dc . 


: . USEDSUBBANDS 11 




dc • 


LIMITSUBBANDS " 


• 


dc 


USEDSUBBANDS 00 16 ; 


dc- 


. LIMITSUBBANDS ' 




dc 


USEDSUBBANDS 01 


.16 ; 


dc 


LIMITSUBBANDS " 




dc.." ■■^ 


USEDSUBBANDS 10 


16. J 


dc'-- 


LIMITSUBBANDS 




dc ■ 


' USEDSUBBANDS 11 


16 


dc-". 


LIMITSUBBANDS - " 





rate low code 00: mono band- width 

subbands requiring i allocation, 
mono band-width 
' subbands requiring l allocation 
mono band-width ■ ' 

subbands requiring i allocation 
mono, band -width 
. - subbands' requiring 1 - allocation. 

rate high code 01: mono banc -width 

: -. subbands requiring l allocaticn 
mono band-width 
... subbands requiring i allocation 
mono band-width 
subbands requiring i allocaticn 

monc band-width • 
sxibbands requiring i allocation 



endii 



endxn 



.-define ancillary, data baud, rate table .of clock values and byte counts 
BAUDCLK . macro . ■ 



baudclk 

; : : :28.6 
;::;53.8: 

."• dc - 
dc 
' • dc 
-^dc. 
■•• dC 
•-.^dc, 
dc- 
-dc 



if SAMFL£_RATE_FAIR— SAM?LE_16K_AND_24K 



M_SCCR300 
BVTES3 00_16 
BYTES300 16 . . 
M SCCR1200 : 
■BrraS1200 16 
•BYTES12 00''l6 
M SCCR24 00 . 
. BVTE5240O 16' 



^;S€t clock for 300 data baud rate • 
;tol check of bytecnt • sample 14.4 
;tcl check cf bytecnt « sample 14.4 

,.;set clock for 120C data baud rate 
;tol check of .bytecnt « sample 14.4 

.;tol check- of bytecnt « sample 14.4 
;set clock. for 2400 data baud rate 
;tcl check of bytecnt C samcle 14.4 
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dc ■ 

dc 

dc 

■:.dc 

dc 
dc 
dc 
dc 
dc 
dc 
dc 
dc 
•dc 
. dc 
. dc 



:2S.8 
!28.a 



ByTES24C: 16 v 
K SCCR360: - - . 
BYTESaSOC 16 
BYTES3600;[l6 
M SCCR4aOO 

,BYTES4800 16 > 
BYTES4800"l6 - 
M SCCR384C0 
BYTES3a430 16 
ByTES3840C'"l6. 
M SCCR960C~ . 

.BYTES9603 16.. 
BYTES9600 16: 
M SCCR19200 
3rrES19200 16 
3yTSSl92C06. 

endif 



; toi • cr.eck cf byrecr.r l sample 14.4 
;ser clock for 3 6CC daza baud rate 
;tol check of byrecnc « sample 14.4 
.;tol check of byrecnc fi sample 14.4 
. ;sec clock for 4800 data baud rate 
;tol check of by teen t « sample 14.4 
;tol check cf byte^cr.t 4- sample 
;set clock for 3840C\daca'-baud 
;tol Check of bytecnt 9 sample 
; tol; check c£ byciecnt ft . sample 
;set clock fsr 96CC data baud rate 
; tol check of bytecnt ® sample 14.4 
•;tol check of bytecnt a sample 14. 4 
•;set clock. for 19200 data baud. rate 
;tcl check of bytecnt 6 sample 1.4 ,4 
;tcl- check of bytecnt 8 sample 14.4 



4 .4 
ate 
4.4 
4 .4 



.( 4J' 



; 7 : . 



. . enam 

; define MICRO decoder Auto Select MUSICAM frame sizes to deter: 

input data is MUSZCAM frames vs .G722 data 
; What is the framing bit rate and sampling rate. . 



;ine il 



ACTOFRAME 



autotbl . 
; • ! !26.6 
; ! : !28.8 



dc 
dc 
dc 
dc 



128.8 

;28..e 



, if 5AMPLE_RATE_PAiR-.-SAMPLE_16K_.ANr_24K 



OUTM56 16 
0UTM64*16 
0UTM56^16 
.OUTM643I6 

endif 



;96 words in 28. B Kbit frame.® 14.4 KHz 

;96 words in 28.3 Kbit frame tt 14.4 KHz 

;96 words in 28.3 Kbit frame S 14.4 KKz 

;96 words in 28.8 Kbit frame s 14.4 KHz 



endm 



end of box^ctl.asm 



list. 
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'}• icJ .1995. copyright 'Corporate Computer- Systems.-. ■ IncV' .Ail rights reserved.. 
i ;\DGCST\dcframe'!asm:' ujpsych- parameter f or. f indrms vs . checksub' • ■ . 

title- ' 'PCM data thru XPSTCKC) and_ XCODE'- / 
■■; "mult ipie 'mono channels';-.. .... 

: *h^s -ou-ine receives a buffer of PCM data and builds a stand aione 
r ' /^ single channel mono frame for multiple mono char-ne- devices ■ 



cn entry ^ ^^^^.^53 3* . he input PCM buffer . 
ri • address of the. coded frame buffer 

■cn' exit ' ■ • . ' ' . 

a - destroyed' ' 
• b • destroyed •. ■ 
yO - destroyed . 

■ yl « .destroyed' 

■ ■ rD ■ destroyed . 
■' 'rl » .destroyed • 

■ r4' • destroyed .. 
: n4' « destroyed- 



include 'def. asm' 

section highmisc 
xdef . htonals 
xdef nmasker 



org 

stdcf rame^xhe 

ntonals . ds 
nmasker ds ■ 

enddof r ame^xhe 
endsec 



xhe: 



; number of tonals in tohai structure 
; number of maskers zn masker str-cturc 



section ytables 
.xdef mgtbl^ 



org ' • yhe 
stdcf rarae^ytbl . 



mgtbl" 



dc 



; table for searching for tonal s 
2/3. 6. -6, 12. 12.12/12: ■ 



enddoframe^ytbl 
. ■ endsec • 



. org 



phe: 



do frame 
: . i -idbg 
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; : 1 !dbg 



rz3 
jmp 



.debug 



using s: 



franes buf£e: 



r*««*~ Start XPSYCHO 



Now get the position to read the f ft data from 

This buffer is offset from the polyphase filter to account for the^ - 
delay, through the filter..- 

;"set- to a mod buffer • • ■ " 
; get input pcm buff er address 
.. ;back up to position f ft 
; * ; get' -hanning -output, buffer address- 

;apply a hanning window 
restore rO to linear buff e.r , • 

. ;fft.. the., data ' • 

. real - part of fft''. " "' " 
.-imaginary part of fft - 
;power ' array . 

.; compute power of fft data . 
• ■ ;power 'array . • 

. ;maximum. in each. sub-band (sib): 
; find max power in a sub-band 

•• ■■ ; power array •• 
; tonal array 
■• /range table for -tonal ;search- ■ ' ' 

• ;find tonals 
..;save number of tcnals . 

..-power array 
..■•;tonal array. ■; 
;range table for tonal search 
;zero power around tonals. 

; power array: 
. ■ ; address? of the- noise - array 
; find the noise . ■'" 

/address of . the masicer str-cture 
; address of the noise array 

• ; address' of .the Tonals . s.tructure 
cf " tonals in Tonals.- structure 

.;merge the maskers 
■ -.;save t of maskers-. - 

;get ., address, cf- the Ma'sxef str-uczure ■ ' 
'.. ; number cf maskers "in masx^f structure • 
. ';find the db. value of. maskers' - .. 



■ move.. 


: «PCMSIZE-l,mO 


. move^ 


y : <polyst,rC. 


moves ; 


M (256-64 } . nj 


move : 


•• llhbuf ,rl'- 


■ move . 


<rOJ.-nC • 


jsr 


< hanning 


move 


y:<linearpmC 


. j« . 


.<f ft- . 


- move 


#f ftbuf ,rO 


move 


«fftbuf ,r4 


move . . 


. #power,rl- 


;jsr 


< logpow 


move 


■ #power, rO 


move 


. KSBMaxOb.rl 


jsr • . 


cf indmaxi : 


move 


#power, rl 


move 


<*Tonals r r2 ^ 


move 


trngtbl,r4 . 


3sr 


.<findtona. . 


. move 


r3.x:ntonals 


move 


#powerVrl . 


move 


»Tonals»r2 - 


move 


*mgtbl,r4 


.i" . 


. <zeropowe 


moire 


#power.ri . . 


move 


«NoiseP%rr,r2. 


•jsr . - 


<findnois . 


move 


#Mas)cers:r3 


move 


#Noi9ePwr,r2 


move 


• tTonals.rl 


move 


. x:nt6nals.xC . 


: :j8r 


<mergema8 


move - 


b«x:nmasker 


. move 


..flMaskers^rO 


. move . 


. .x:nmasker. c 


•: 3" ■ . 


' <f inddbma 
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move. 


- tfMaskers.rC • 




.<pruneclo 


* ■ . move ; 


• «Maskers« rO 


move 


: x:nmasker«b 




<p rune qui 


■ move 


#Maskers;rO 


move... ■ 


. x:nmasker,b 




.<prunemas 


mOve 


#Tonals,r3 


. move. 


. xinton'ais.xO 


. . move 


tAlisng.rl ■ 




<f Indalis 


move 


.b,x:nali'as 


* move '.: 


tMaskers, r4-.' 


mciye 


#GlbMsk,r: : 


Osr ..; 


<OCalcGlc 


_pclya_' • '• ■• 





-56. ;. . . 

';gec address cf the Masker structure 
.•prune close maskers " 

■.;get ' address of che, Masker srrucrure' 
/; number of maskers in masker scrucrute 
;prune quiec- maskers. 

;get . address of the Masker strucrure --: 
;number of maskers in masker" structure 
;prune masked maskers 

..•address of the Tonais structure 
.;# cf tonais in Tonais structure . 
.;destination buffer address 

, ;find alising components 



;get address of the Masker structure 
, ;address of global maskina threshold 
.•calculate global, maskiho" threshold 



polyphase filter the input data 



move y:<polystVrO 
move #PCMSIZE-l.mO. 
move #PlAnal.r5. 
jsr =. /. .<polyanal . 
move y:<linear.md 



;get polyana start address 
;set as a mod buffer ; . 
;8et start of the sub- band output 
;poly analyze the data 
;restore to linear ctl 



buffer 



develop the scale factors / 

initialize the table of scale, factors to minimum amplitude (63 •«> o' ampl^ 



- move 
move 

do 

move 



#SBndSKF. rO 
#63, n4 



;addr of sub-band scale factors 



«mJMSUBBANDS*NPERGROUP._init_00 - 

n4,x: (rb)r . . 7 ;9ot "Rvalue to store shared memQr>- 



^init^OO- • 

. " move «PlJtoai*rO 

move tSBndSKF, rX 

jsr ■ <£indBkf • . 

; .develop.\the SBits for scale, factors - 



move 
move 
:sr 



#SBndSKF,rO 
#SBita.rl . 
<pi'ckakf - , 



;addr of; poly analyzed data 
;addr of sub-band scale facte 
■;find scale factors 



;addr cf sub -band scale factors 

;addr cf sub -band sbits 

..-pick the best scale factors ' 



xcode 



• • ••**••« 
. ••••«*** 
. « • • * • • • • 
• « « • « • « 



Starr XCODE 
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;dezers:ine which method to -uae zc decersiine the sub-band maximum, values ^ 

move ' . y:ujsych,a ;get use findrms.asn rcr. parameter 

.. move ■ #.5,xl *. . ;if less than .5. use checksub.asm rtr 

cmp. . . 'xl.a ;see if parameter less than .5 

. ..-jlc- ■ <_do_checksub . '..-if less, .use checksub.asra rtn"- 

;'u8e WS: tor maximum .level" for the sub-ban'd-- ' 

; move «PlAnal,rC • • . paddr of poly analyzed data 

move ... #SBMaxDb.rl ..-addr .of sub -band max • ■ ■• 

isr . ■<findrTOs . ;find max in a subband . 

jmp <_set_rain_mask ;gc.to set minimum masking level. 

_do_;checksub- •,; ■ ■ " . 

.;s€f correct maximum- level ^' for the channel-. 

.• •move; ■ • ■ «SBadSKF, rQ- ' •';addr of ■sub-band: scale- factors: • 

move . : »SBMaXDb;rl . ;addr of sub- band max 

. jsr- cchecksub . '• • ; find max in .a subband 

•_^3et_min^mask \ '.. 

;set minimum masking level in each sub-band 

move . • #GlbMsk, rO . .. /channel global masking threshold' - 

move #MinMskDb,rl.. .-minimum masking per subband. i sib;; 

■ / .jsr • . ' <findm.inm . ■; ;find min masking 

.-set minimum masking level in each sub-band: left channel then right channel 

move. x:halias.a ; number of aliaser's 

move - . #Alisng; rO .. . -.-aliasing structure 

move «SBMaxDb.rl ;max in. each sub-band islb) . • 

. jsr . <findmaxs ;find the maximum signal . 

;set number of fixed' bits required., and the number of available bits . for audic 

' jsr • ; .-cbirpool.- 

move xG,y:fixbits . ;save' fixed bit count 

move xl,y:audbics ;save bit count available for alloc 

.-allocate the bits in the frame by subband ' 

move " #SBits/rO v- . ;scale factors 

. move #MinMskDb,rl " .-minimum masking per sub-band ■ (slot ' 

" • - " -move'.':. '«SBMaxDb.r2 ".- ■ ..■maximum in each sub-band- (sib)- 

> move ,■ . .- ^SBPos.r^ ' .; sub-band position - 

• •move ■ #SBIndx.r5 .. ., ;sxib-band inaicies- 

.jsr. ■ .--fbitalloc • . ..-.allocate- the bits . 

:;code the channel; audio frame • 

..jsr.'. <c6deframe ■ •;. . 

'. rts • ..^ 
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(c: 1995. Copyrigh- Corporate Computet Systems, .inc. Ail, righVs reserved.- 

;\RM:CRC\getbai..asm ; . ■. v.- ;^ ■ ^. ■ 

■ .title"; 'Get bit allocations* 

■; This routine is used to get' the bit allocations of each of the sub -bands. 

; It is .from the'^lSO standard. - ■ 

; - sub-band 0 - 10 use .4 bits (11 * 4 - 44 bits) 

.; sub-band 11 - 22 use 3; bits. (12 *. 3 « 36 bits) ' 

; sub -band. 23. - 26 use 2 bits- (.4 ♦ 2 • 8. bits) • 

; :"■....(. total • B'8 bits) 



on entry 
rO 



'address' of bit allocation array for both. left and. right .channels - 



r6.> current off set' in ' the input array"' ..' 
n6 • base address of the input array 

y:<maxsubs = MAXSUBBANDS at sampling rate and bit rate 
y:sc » shift count of current input word 
y: frmtype ■ full stereci'. joint stereo or mono ■ 
y:sibound « joint stereo sub -band intensity bound - 
xrcrcbits -accumulator of bits, covered by CRC-16 routine 
(bit allocation bits. are accumulated) 



on exi: 



r6 « updated 
y :sc « updated 

a - destroyed 
b • destroyed 
xC s destroyed 
xl « destroyed 
yC • destroyed 
yi. • destroyed 
rC a destroyed 
rl « destroyed 
r2 » destroyed 
r4 - destroyed . 
n4 • destroyed' 

include . ' def ..asm' 



IDGCS: 



section highmisc 
xdef masictbl 



; ; xdef 

■org 
: ;stgetbal_yhe 

; :masictbl 

;i. • ■ dc 
; ; dc 
; ■ , - dr -V 
dc ■ 
• -dc 



tbl 
yhe : 



soocooc 

SOOOOOl 
S000003 

•saoooc7 

SOOOOOf 



; place holder in ma.sk table 
;mask table for .1 bit getvalue 
; mask, table for 2. bit getvalue 
;mask table. for 3 bit getvalue 
;mask table for . 4 .bit getvalue 
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dG 


. SCOCOlf : 


., ■ ■ ;mask- 


cable 


•for 


5 bit gee value 


dc " 


• '5C.0003f 


;niask 


cable 


for 


5 ■ bic- gecyalue . ' 


dc . . 


.. ■• S00007f . • 


;mask 


cable 


for 


T .bic gecvalue. ' 


dc: 


soooof f . • 


„■;• . ;mask 


cable 


for 


8 bic gecvaliie.. 


dc 


. soooxff ■ ; 


;-;mas)c 


cable 


for. 


9 bic gecvalue 


dc 


S0003ff - 


. ■ ;mask 


cable 


-for 


10 bic gecvalue 


dc , 


■$O007f f.:- . 


* Vmask 


cable 


for 


. 11 . bic gecvalue 


dc 


SOOOff f .- 


. ;fnask 


cable 


for 


12 bic. gecvalue-. 


dc ■ 


• sooiff f /• • • ■ . 


.;• ;cnask 


cable 


for 


13 bic gecvalue 


dc ■•■ 


". $003ff f 


•.• 3 ;mask 


cable 


for 


14 bic gecvalue. 


dc... ■■ 


S007fff : ' . 


.*.'.-' ';mask' 


cable 


for 


15 bic gecvalue 


dc - 


SOOffff ; 


- ;mask cable 


for 


..1€ bic gecvalue 



; ; ; define data size table" for the getValue 


routine to extract data. . 


;;Cbl . 








:;; . ■ .dc- -.- 


soooooo 


.. ;bits • .0, place holder' 


- .dc ■ ; 


sdodool 


: ;shif c left- 01 .bits ■ 


dc:-.. •. 


S000002 


;shifc left 02 


bits. 


' ■. ' dc ' ■ ■ 


5000004 


; shift left 03 


bics ■ 


: : ■ ' dc;'";; 


S000008■^ 


■ ; shift lefc 04 


•bits. 


;V- . ■dc- 


sooooic . 


■ ; shift lefc 05 


bits' ; ■ 


;; ■ ' dc 


S00002C ' ■ 


... .;shif c left 06 


bits ■ 


;; dc 


S00004C .. . 


.;shifc lefc 07 


bits 


;■ ■ •• • dc • : 


$000080 . , > : :;. 


• ;shift lefc 08 


bits- 


■ dc. ' 


.$000100 


; shift left 09 


bits ' 


dc :■ 


$00.0200. . 


• • ;shift left 10 


bits.. 


;;: dc 


$000400 :\' 


- . ;shift left 11 


bits • 


;■; ■ dc....;- 


$000800 . ■ 


; shift left 12 


bits •■ .' 


.;-dcv. 


$001000 ■ ^ ■ 


;shift left 13 


bits / 


• ' ■ dc "' .. 


$002000 


;shift left 14 


bits.. 


;; •••• dc. 7 


$004000 . . 


: ;shift left 15 


bits 


;; . - dc-:: : 


$008-b00 >. 


. /Shift left is: bits 


; ;eadgetbal_yhe 








; ; endsec 








section 


highmisc 






■ xdef . 


skf cbl 






■ xdef 


skfcbl 1. 






xdef.:.: 


skftbl"2^ , 







Xdef ; .skftbl.3.;, ^ 



• • org ' ' xhe: ' 
■*stgetbal_xhe . . 

;addre8S of ^'BAL's bit . table, as per Allowed iselected " :. - . . 

; -skf tbi'ds :.; -1 .'v.. ' •■■■ 
: ;These tables is the number: of bits used by the scale factor in each.. sub-band 
• .High sampling .rates- with highctr . bit" rate frami^ 

; sub-band 0 
; sub-band I V 

; sub-band 2. • •. "••. "-i" - ""^ ^• 

;sub-band.:3-. 



skftbl. 1 



dc 
dc 
dc 
dc 



wo 96/32805 •„' . ■' , ■ PCTAJS96/64835 



■GO- 



dc' 




rsuib-band .4 ' 


dz ■ ■ ■ 


■ 4"- 


'. ; sub-band 5 


dc 


•4^ ■•; • 


. * ; sub -band 6 


dc 


4,.-. 


■ ;.sub-band 7 


dc . 


4 - . ■• • 


■ ■ ; sub -band 8 . ■ 


dc 


4 . 


, .. ; sub-band 9 


dc 


[/A 


? sub-band 10 


dc •■ ;■ 


.i 


; sub -band' 11 


dc 


■3 ;. ■ ■ ' - 


. ; sub -band 12 


GC 


3 ■•• 


. . ; sub-band 13 


dc-. 


3-::>- 


; sxib-band 14 


dc- .:; 




,; sub-band 15 


dc . 


. -3 • ■■ : 


; sub-band 16 


■dc 


■ A- 


; sub- band 17 


dc . . 


■3 


. . ; sub-band 18 


dc 


3 -■ 


' ; sub-band 19 


.dc: ■ 


• ■ ■ 3.; 


. .; sub -band 20 


dc : 


■■ 3^ ■■ 


" • • ; sub - band '21 


dc 




sub-band 22 



dc ' .•"'..2- - //sxib-band 23. 

dc' 2 . ;sub-band 24 

' dc : 2 ;s\ib-band 25.,.' 

■ dc 2 - .■ ;sub-band''26: 
.;end table - 3-3. 2a-. 

-. ' dc. ■ ■ - ■2. -". . .;sub-band 27. • 

. . •■ dc \ .-2 ■ ;s\ib-band 28 -■' 

dc 2 . .; sub-band .29 

;end" table 3-B.2b / 

dc" 2 .; sub -band 3 0 

dc 2 .; sub -band 31 

. ; High sampling, rates with lower bit rate framing 

skftbl_2 

; sub-band 0 
; sub- band -1 

; sub-band 2 . 
; sub-band 3 . 
. :sub-band 4 . 
; sub-band 5 
- ; sub-band € 
; sub-band 7 

;subrband 8 
•■ . ;sub-band -.9 /. 
;sub-band 10 . 
jsubrband 11 

. ' ; sub-band 12 
;sub-band 13 
: ;subrband 14 ' ... 
; sub-band 15 
. ; sub-band 16 
; ; sub-band 17 
• sub-band 18. 
sub-band .19 
. .;sub-band 20 ■ . 





dc 


4 






..-4. 




" * dc- 


- • . 3-. 




-■.■■dc 


.3 




.■ ..dc- 


■■3- 




dc 


• 3 




dc 


. -.v-Va- 




- dc 




;end 


table 


3-B.2C 




. dc; 






. dc 


3 




• dc 


3 




. dc 


■ •■-'.3 


;end 


table 


3-B.2d 




dc 


■ ■ - . ■ 3 




•dc 


•'• ■■ 3- 




' dc 


■■ 3' 




■ dc 


-■3 




• dc 


. 3 




dc 


■ •-■ . -■. 3 




dc 


.... 3'. 




. ■ dc 


3 




dc 


•-;.3 
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wo 96/32805 
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dc • • 


3 .'■ ■ ■ • 


rs\iD-oana>* 


dc • 


•'3 


. r sub -band 22 


dc 


••■■3 '.• 


; sub- band 23 


dc ■ . 


• 3'' • 


. . ; sub- band 24 


dc 




sub-band 25 


dc 


' y 


;s\ib-band 2€ 


dc 


'•3 • .■ 


. ; sub -band 27 


dc- .r 


3. 


v . .;sub-band 26 


dc 


■ 3 :. -- 


, ; sub -band 29 


dc:-- 


• ■. 3 


; sub -band 30 


dc* ■ 


.3. ■ 


; sub -band 31 



- Low sampling' rates 



dc . 


■ 4..'' ■' 


;sub-band 0 


dc. " • . 




, ; sub-band l. 


.dc ' 


• • ■4 ■ . 


; sub-band 2 


•dc. 


'4; 


.- -sub-band' 3 - 


dc 


3 ' 


- ; sub -band 4 


dc 


': 3 • 


. ; sub-band 5 


dc ■ 


3 


; sub-band 6 


dc 


3 


; sub-band 7 . 


dc. ■- 


3 ■. ' 


; sub-band 8 


dc 




; sub -band 9 


dc . 


-3.. 


sub- band 10 


.dc ■ 


2 


..; sub- band li 


dc.-.- 


2 ' 


; sub -band 12 


dc 


2 


sub-band 13 


dc . : ■ 


■ 2 


; sub -band 14 


dc. .- 


2. 


; sub -band 15 


dc 


2 


; sub -band 16 


dc 


2 ■. 


. ; sub -band 1? 


dc 


■ 2 


; sub -band 16 


dc 


2 


r sub- band 19 


dc 


2 


; sub-band 2 C 


.dc 


2 


; sub- band 21 


dc 




. ; sub-band 22 


dc ■ ■ 


-.2 


•sub-band 23 


dc 


2 


; sub-band 24 


dc-'.- 


2 


.;flub-band 2 5 


dc 


. 2 ■ 


sub -band 26 


dc 


2 . 


; sub -band 27 


dc ■ 


.2 ■ 


■ .. ; sub-band 2B 


dc •• ■ 


■ 2 . 


.; sub -band 29 


cle 3-a. 


' • » • 




dc 


[^2 • • . 


; sub-band 30 


dc. 


* 


; sub -band 31 



. ' ■ cadge tbal^xhe ■'. ■" * • 

- . ■ ■ endsec-' . . - ^' •■ ' .\ "' ^ ^' ■ ' ' ... 

■•' • org." " phe . ■ 

■ .. ';initialite:'- .•*■.•■■ • ':• • / 

a, rl wirh start of subband allocation table of bits in., frame . per- sub-band V . ' . 
.' ; • b^-. nO offset for right channel sub-band bit allocation values: 
. • left channel frow 0 • to . (NOMSUBBANDS ' - 1 ) ■ 



SUBSTITUTE SHEET (RULE a6> ©At) 



WO9ti/32805 



PCTA]S96y0483S 



•righ:: channel from- NUMSXraSANDS to ( (2 • NUMSUBBANUS : . - - I 
-J se-'vr-cn joint stereo sub-band boundary for sterec intensity:- 
* - ^4 .(40U , a 18-31}.. i2 . (12-31). or 16 (16-31) 



getba.l 



move. x:slc£tbl,rl ; 
move #mas)ctbl,r2 - 
move HOTMSUBBAKCS.np' 

move . . . y *• < s ibound , r 3 . 
move . x:crcbits.rS 



.-offset for right channel 
; deer stereo intens sub-band 
;g€t CRC-16 bit . counter 



=tr 



;l00F 

;bit 
; a, 

;■>"- 
; c. 

; . d, 
; e". 



-h-oiigh the sub-bands extracting the left and right iif applicable) .. 
k^' oca- -on index values !y:<maxsubs - fixed count of sub-bands framed): 
'^or cu-*ent sub-band get the number of bits for allocation index value 
ind increment address cf the next sub -band bit count; 
ae- --le bit allocation for the left channel always 

b register isolate the type of frame: full stereo, joint stereo or mono" 
yO holds the mono frame type code for testing/- 

v** holds the joint stereo frame type code for testing ■ ■ . :; . , 

see 'f 'ho frame type is joint stereo and just in case, move the 
current stereo intensity sub-band boundary counter value f sr testing • : 
if net joint stereo, see if this is a mono frame type 

'if it IS loint stereo:' ' • ' . ■•• : ,^ 

test if the boundary counter has reached zero, and : us t in case i. has. 
* * restore the left channel bit allocation value to the al register 
.1. if the coxinter is zero. 



3:1 il 



not i go to extract 



lex Oil. aiAwi-ciu*i-iAi v«4.M«^ «-%^ — 3 . .. 

go to copy left channel into the - right channel 
the full stereo right channel allocation value 



do • y:<maxsubs,_getb_>_40 

move . x: (rl) n4 . . 

; move n4,n2 

move n4.n5 

jsr <getvalue. 

move y: {r24n2) .xl 

move (rSi ♦nS 

and xl,a . y:<frmtype.b 

move al.x: irO) . . 

move . it>MONO,yO 

move .K>JOINT_STEREO.yl .: 

cmp -yl.b r3.a 

3ne ■ <_getb_l0 

tat a x: (rO) .al 

•jeq " <^V^^^ . 

move trl) • 

jmp . <_gctb_20 



;get « of bits to read 
.;get hi order bit mask index 
;to accumulate CRC-16 bits . 
.-get a left chan bit allocation.. 
;mas)c for high order one's 
;accum bits for CRC-16. rtn 
..•mask off high order one's 
; & set for frame type compare 
.-set left channel 
; ck for no right channel ' \ 
;ck for intensity sub- band 
. ; check for stereo intensity 
;lf not, see if mono 
.•reached bound.: restore. left val 
;yes, left val to right val. 
'.•no. deer intens sub- band cntr- . 
; . and retreive rigfht chah value, 



-es- 'or a mono type of frame and just in case it is,, set; al ..o zero- 
: Icr insertion iJilo the right channel for consistency ■ . 
•.^f^- -s mono. CO to tnove the right channel value 
•"othiniise. fall through; to full stereo ; 



•-^•''^-'''cmp.' y6;b . • «6,al "... mono./.msert. 0 for right 

■■. jeq <_getb_30 ■*. • 
\ Ifull^ sterec. ' extract-, the/right -channel; allocation^ ^^[y 



oetb 20 



3sr 



cgetvalue 



;.get a right chan- bit " allocat; 
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.63 



move 
move 
and 



y: (ra-t-nl) ,xl 
{r5)*n5. 
•,xlra - • • •.,/' 



liasert the right channel value. <no; of £ set) 
; increment for. the next sub-band • 



_getb_30 



move, 
move 



al.x: (rb-i^nO) 



^getb_40 



rtnaslc for high order one's 
jaccum bits for CRC-lo rtn .. 
jroask off high order one's 



. ; right channel, sub -band alloc 
■ ; incr for. next sub -band . 



• data in' them. . 



move 
sub 

do" 'y 
move 
move 



^getb^SO 



move, 
rts 



a #>iroMSUBBAKDS,b. 
y :<maxsubs,xO .. 
•xO,b... 
b. getb_5^ ' 
.a,x: Ir0*n0) 
a.x: (rO)* ^ 



r5,x:crcbits 



/current MAXSUBBANDS . 
.•equals unused sub -bands .. 

.; right channel 
; lef t Chan .& incr for next 



; store updated .CRC- 16 bit; counter. 



SUBSTITUTE SHEET (RULE 26) . 



wo 96/32805 



PCT/US96/0483S 



••; . ■• ;■ . ' ■.64-;- •.• . _ : " . • 

. -'.opt f c, Cfix,.!nex • • ' ^ 'v 

; (c). 1995i Copyright Corporate . Computer, Systems, '-.Inc. ..All rights reserved. 
;\DGCST\getdata. asm: moves to high.B-Memory 

; •■^tttle.'.' /Get the Data'- ' ■ ..; 

This routine .'setsi the data . in the ^output" buffer . " 
-on entry" 

.r3 address of left t right channel SubBandlndex array (x memory) .. 
.;. . t2 « address of left t right channel SubBandSKFs array (x memory) 

. ■ ri . addr of buffer for a set of left and right channel recovered data: 

... (192 samples: one group of 3 samples, 32 subbands, 2 channels) 

) . . y:<maxsubs « MAXSXJBBANDS at sampling rate and bit rate , 
; yrAllwAdd • address of the proper Allowed table at sample/bit rates 

' y:frmtype « whether full stereo, joint stereo or mon frame 

;. y:sibound if joint stereo ». sub -band boundary for stereo intensity . 

'Vi.V'shared memory for rsynth.. / '\ .. -. 



; on 


exit 




I 


a > 


1 destroyed 


J 


b » 


^ destroyed 


i 


xO 


» destroyed 




xl 


» destroyed 


# 


■ yo 


• destroyed 


* . , 


yi 


• destroyed 




rO 


t> destroyed 


!■ 


rl 


• 'destroyed 


S .' 


r2 


• destroyed 


S . ' .■ 


■■ r3' 


- destroyed 




• r4 


» destroyed 


s 


r5 


m destroyed 




no 


» destroyed 




■• ■ ni 


s destroyed 




. n2 


m destroyed 


§ 


n3 


■ destroyed 


't .- 


. n4 


- destroyed 


' t ■ 


n5 


« destroyed 



xdef 
xdef 

••' xdef . 
xdef 

". .. xdef .. 

org. . 

srgetdata^xhe 



include 'def.asm' 

include ' . . \rmicro\get value .mac' 

section highmisc . 



KBits 



dc 
dc 
dc 
dc 
dc 



NBitS : 

CC 

DD 

pac}cmax 
packrpl . 

xhe: - . ; 



0 
2 
3 

■.■3- 
4 



/position 
; posit ion 
/position 
/position : 
/position 



0, 
1- 
2 



place holder 
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65. 



dc 




; posit icr. 




5 


dc : 




.•position 




€ • 


dc . 


■ 6-; ■ 


. ; pes it ion 




7 


dc 


■ 7 ••• ■ 


' ' ; posit ion. 




•8 • 


dc 


- 8 ■ . .- ■ . .• - 


. . ; posit ion 


B 


9 


dc 


' 9 . - : 


• . ;positior. 


' m ^ 


10 


dc 


: 10 r - ;. 


; position 




11 


dc 


: ■■ 11 . 


.•position 




12 


dc 


• • 12 


.•position 


B 


13 


dc 


13 ■ • 


; posit ion 




14 


dc - ■ 


. 14.- . 


'. -/position 


m 


15 


dc 


*-15 


■ 'position 




16 


dC"'- 


16 . ■ 


-• ' . / position 




17 



cc 



DD 



dc'.. 




ac ■. 




dc 


90b bboo 


dc 




dc 




dc 


CA A A A A A 

5444444 


dc 


C A ^ ^ n Q A 
54 Z 1 U o4 


. ac 


C J 1 nA 1 A 


dc 


$408102 


dc . 


5404040 


dc 


.5402010 


dc 


5401004 


dc . 


5400801. 


dc 


- 5400400 


dc 


5400200 


dc- 


5400100 


dc 


. $400080 


dc- 


$400040. 


c3c 


5000000 


dc 


ScOOOOO. 


dc 


ScOOOOO\ 


dc 


SaOOOOO 


dc 


ScOOOOO 


dc ' 


590 0000 


dc 


5880000 


dc 


$840000 


dc 


: $820000 


dc ■ 


S810000 


dc . 


5808000 


dc 


5804000 


dc . 


$802000 


■dc: , 


5801000 


dc 


. S800800 


dc . 


$800400 


de 


: $800200 


dc . 


5800100 



/position 0. place holder 

;: 4 .0/ (3 .0*2 . or position 1 */ 

8.0/(5.0*2.0) position 2 ♦/. • 
; 8.0/(7.0*2.0) position 3 ♦/ 
•16.0/(9.0*2.0) position 4 */ •. 
; 16.0/(15.0*2.0) position 5 /• 
; 32.0/(31.0*2.0) position 6 */ 
; 64.0/(63.0*2.0) position 7.*/. . 
; 128.0/(127.0*2.0) position 8 • ' . . 
; 256.0/ (255/0*2.0) position 9 •> 
; 512.0/(511.0*2.0) position. 10 */ 
; 1024.0/ il023. 0*2.0} position 11 */ 
; 2048.0/(2047.0*2.0) position 12 */ 
; 4096. 0/(4095^0*2.0) position 13 •/ 
;'8192:0/(8191. 0*2.0) position 14 */" 
; 16384.0/(16383.0*2.0) position 15 */ 
f 32768.0/(32767.0*2.0) position 16 ♦/ 
; 65336.0/(65535.0*2.0) position 17 */ 



position 
position 
position 
position 
position 
position 
position 
position 
position 
position 
position 
position 
position 
position 
position 
position 
position 
position 



2/ 
3, 
4, 
5, 
6 . 
7. 
8. 
9, 
10, 
11. 
12, 
13. 
14. 
15, 
16. 
17. 



place holder 

. 5000000-1. 0 
.5000000-1.0 
.2500000-1.0 
.5000000-1,0 
.1250000-1.0 
.0625000-1.0 
.0312500-1.0 
.0015625-1.0 
.0007812^1.0 
.0003906-1.0 
.0001953-1.0 
.0000976-1.0 
.0000488-1.0 
.0000244-1 .0 
.0000122-1.0 
.0000061-1.0 
.0000030-1.0 



*/ 
*/ 
*/. 
♦/ 
♦ / 

*> • 
*/ 
♦/ . 
♦/ 
•/ 
*/ 

♦/ 
*/ 

*/, 
*/ 
*/ 



/check for bit errors in pac)ced Positions: 1,^2, 3 an^ 

STANDARD ISO CCS COMPRESSED 

/■ position . max replacement / max. replacement.... 
•. lvalue value : value value ; 

>■;■■■ '^i-: •■■ 26. ,■ 13 .:■ : -.. ' . ■ '■■ 



66- 



4 38. 



21.9- 



728.. 



364 



packmax 
. packrpl 



dc 

dc = 



endgecdata^xhe 
enSsec 



section lowmisc 



xdef 

. .- xdef.- ■ 
■ " xdef.' 
xdef- 
■ . .-xdef ; 
. xdef 
■ ' ■ ■ xdef ' 

■ ■■• ..org."" ' 
stgetdata_yli 



.av , 
bv •. 
cV- ■ 
bandchc 
. block 
syereg 
dvalue 
cvalue 



ds 
ds. 
ds 
ds 
ds 
ds 

dS: 

ds 



endgetdata^yli 
endsec 



•av 
bV 

cv'- 

bandcnt 
block ■ 
syereg'* ■■' 
. dvalue ; cvalue 



.1 
1. 

i 
1 
1 
1. 
i 
1 



.;A value after- uppacking 

;B value after uppacking 
';C value after uppacking 

; incr sub -band for stereo intensity. 

;block no 0:0^3v l:4-7,...2:8-ll : . 

; save a register value 
.; hold current DValue . :^ 

; hold current CValue . .. 



section highmisc 


xdef 


ivdata ; . 


xdef 


ASMDadd . 


xdef 


SKFaddr 


xdef 


INXaddr 


xdef 


AllwAdd. 


xdef 


.Allow 


xdef 


getdataN45ave . 


xdef 


. bereich 


xdef . 


. .shftbl = . . 


org = 





st.getdata^yhe-^ : 

ivdata ' ■ ds" •"••1 •. 

ASMDadd ds - 1 

SKFaddr ds 1 

INXaddr ds 1 

•AllwAdd ds 1 

Allow ds 1 
getdataN4Save, ds 



include • . . VcbmmonNbereich.asm' . 



shftbl 



dc 



.$000000. 



;left & right channel recovered data 
.;A start addr shared mem for samples .,;." 
/Starting addr for SKF's. . 
/Starting addr for SBIndx's 
; save addr of applicable Allowed table 
/current address in Allowed for sb 



/bits' - ■■ p.*. place, holder 
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67- 



dc 


S400000. ; ' . ' ' 


■■ ;bi"cs 




' 1.. Shift 




"■$200000 • 


. ;bits; 


- 


.2.- shift. 


•. .'dc 


■ e ^ A rt ft Aft 








dc 


5080000 


■ " .;bit8 . 




4/ shift 


• .■• 'dc . 


S0400.00 . 


. ;-bits 


■ 


5/ shift 


•ac . 




• 1 bics 




6, shift 


' ■ . J ' dc 


soioooo;./ " 


■" -/bits 


e 


7/, shift 


. dc;. ^" 


5008000 ;. 


.;Olts 


m- 


"a mW« 

B> sniit 


y ' ' • " dc /y ■ 


5004000 ; 


■;bits . 


m 


9, shift 


. . . • dc ■ 


5002000' 


■ .. ■ .;bics 


a 


10,' shift 


.• 'dc;-; 


5001000. 


-r' ^bits 




ii,.r-shift 


■.: .dc- .-• 


5000800 


bits' 


m 


12/- shift 


"dc 


5000400' 


■.. . • ;bits 




13, shift 


dc 


. 5000200 


. ibits 




14, shift 


^■■■dc" ' 


5000100 


;bits. 




-15, shift 


• • .dc- ^ ■ 


5000080 


• ■;bits 




16, shift 


endgetdata_yhe 










.endsec 










org . 


•phe:. 









left 
left 
left 
left 
left 
left 
left 
left 
left 
left 
left 
left 
left 
left 
left 
left 



23 bits 
22 bits. 
21 bits 
20 bits 
19 bits 
18 bits 
17 bits 
16 bits 
15 bits 
bits' 
bits 
12 bits 
11" bits 
10 bits 
09 bits 
08 bits 



14 
13 



■get data 



move 
. move 
move 



r2,y:SKFaddr 
r3,y:INXaddr 
rl.y :ASMDadd 



move #0,rO 



7 save -start 'address .- 

;save start address . 

;saye start addr ivquant values 

; start * group number 



;loop through the 12 groups of. 3. Samples per sub-band per channel 
; advancing through 36 samples "' . 

; set-up for the group: . .■. 

1. set starting address for inverse quantized values 
!• 2. reset , the starting address of the Allowed sub -band bits 

3. determine the SKF factor grouping. ; ^ ^ , . 

; 4. set up for joint stereo sub- band intensity boundary checking. 

do 



. #NUMPERSUBBAITD._getd_90 

; set up for next, group of san^les; 

■ •" . ■■move: ^-^ . y sASMDadd, rl • 
move rl.yrivdata 
•move y:INXaddr,r3 
move y:SKFaddr,r2 
move y:AllwAdd,r5 : 
" move'. ' ^' .r5.y:A116w, 

; set which block of SKFs (scale factor indices) 

; 0 for group of 4 samples 0-3 ^ 

. . ; 1; for group of 4 samples 4-7 

: : 2 for group of 4 samples 8-11 



; reset start recover data addr 
;init recovered data curr addr 
■ ; reset. SBIndx ptr 
; reset start SKF address 
;reset address, of allowed 
,-and save . " 



move 
move 

cmp . 

jgt 

move 
cmp 



rO,xO : 
*>4,b . 
.xO,b #c,yi 
.<_getd_0'6- •.■ 



;curr group to test 
?biock [01 groups .0 • 3 



tt>8,b 
•xC.b 



; block [11 groups 4. 



. 7. 



wo 9602805 
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68 < 



move . «>2,yi .-■ 



move 
move 



IrO) - 

yl ,y : <blOCk 



;; block . ;2l grcups 8 II '. 

•increment "the group number 
; save, which block [C. -1 cr 21 



set-up for :oint stereo suh- band intensity control--. ; \ -: y '-- . ': . 

\ncve y:<5Lbound,nO . ; . ijoin^" stereo -i^^^ ■ " 

move r.o,y:<bandcnt .-bound sub-band decremented cntr. ■ • . 

. bclr #JOINT at_S3_B0UND.y:<ctlflgs .-clear reached .intensity, suo-oana 

process this ..collect icm of ^ three samples; per sub- band per channel- / 

V;'"' •■ \"dc''-- ^/■■''"«K:3MSUBBANDS.lgetd;^8C 



move • y:iydata.rl • 
move . ■ ■ #C .n3 ' .'■ " ' - 

.bclr #LErr^vs_R:Grrr,y :<ctlf Ags 
move . y:<block.n2 



; left channel 'zIoz'k isz . 
■■;lcft channel SSI.-idx values 
;inidcate working on. left .chan 
; which block cf SKFs 



;process left channel and. then right channel for. current sub-band 

■•'•do.-\V.- ■■■«NUMCHANNELS,_getdj75. . 



move 
move 
move 
move 
move 
move 

'.tst •. 

je<3 ;■■ 

move 
move 
move 
move 
move 

move 
move 
move 

move 
move 



#NUMSUBBAKDS , nl 
x; (r3-^n3) ,n5 
y: Allow, r5 
#DD.r4 

x: (r5*n5) ,n5 
n5,, a . 

a ■■ . .. ■■n5.,n4.; 
<^getd^60 

nzc\zs-.. 

x: ir4*h4J iXl . 
x: trS^nS) .xO 
xl,y:<dvaXue 
xO,y:<cvalue . 

«NBits,r5 .:: 
■-■t>i,yi . - . - 
. x: trS+nS) ,n4 

x: (r2*n2» .nS 
ttbereich.rS 



; spaced by number of subbatids .. 
; SubBandlndex iSubBand] . 
;get the address of AllowedTSB] 
.•address of. the P table . .. 
■ ;get position for the" subband 
; save the position 

; check position «- 0 AND : 

; set position for DValue fetch 

;not transmitted 

.-address of the C table 

; DValue . ■ ■ ' - 

;CValue ' . . 

;save DValue 

;save CValue . 

.-address of NBits array 
..;zo test for packed pos .1 be^ow 
;nbits 

;SKFIndex[SubBand] [block!: . ; 
.-.;SKF table, address ■ 



J otherwise,, check far jcmc stereo ^"^/^^^^i^y* boundary reached. . 
; ,if right Channel joint stereo sub-bana^^^^ ^le, left channel • 

UthStn'.e2^rrct"hKrSrS ..^--se quar.t.z.ng 



TC^r. 
■^set- 



* aV-M- v.*'-- "flas.- gctd 10 .;clear if aciiig on left char 
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a se*- UP for excriacxing- .^he daca values 
.b;..test the position for packed types -iposicions; 



3 or 4) 



.. move ; 
move 
. move 
move 
cmp ■ 

■ jeq. • 

, ctrp- 

• jeq 

• cir.p- 

ctrp 

..- jne . 



#tbl,r4 : ■■ ■ 
■ n4 ,nO ;■ 
, y :<sCrb ■ ' 

v: <curwd,yO .. 

yl,a «>2,.yl 

< getd 20 
yi.a ^ #>4.yl 

< getd 30 
yl,a " #>3..yl 

•■< getd_40' 
yl.a 

<^getd_12 



;gct shift table address. 
■ ;save-. nbits . • ' • 
";get the shift count .. 

igef " current " frame word .: ■;: 

; check position 1 

•handle pos 1 with 3 packed values 

■.•check- position 2 

-; handle pos 2 with 3 packed values 

; check Dosition »- 4 . 
. .-handle pos . 4 with: 3 packed values, 
.;check position «» 3, and if not, 

.-handle- all other pos. as unpacked. 



: ^*T*^5^^essed mode, handle allocazion as a packed value ... 

;• : o^;^ile. handle as ISO standard unpacked . set of 3 values. . . 

": -.jset »DECOMPRESS.?ACKED;y:<ctl£igs..getd.35 .. ^ ; 

;}-not"position.l. i or 4 so just'^^^ ot 3 adjacent data values 

'move:;. :y:(r4*n4KxCV^ ^get shif tjlef t H^ultiplief- P^^ bit 

V extract the 1st value. and save it in y:<av ..." 
. ; mpy" \ x0.yO";a n4.xl.-. . * . 



cnt 



" . sub ' xl" . b aO - y : <curwd 
move-. b,y:<sc 
;let*s try. a macro 

. joe • • " <^getd^l6 
:• ■ getnextword lOT-^ , 



shift extracted bits into al wi-n 
newly shifted curwd in aC 
& save passed numb bits req-jired 
see if next word need is complete 

& save 'newly shifted curwd . 
save new shift count . 



va.ue 



_getd_16 



move, ■. ■al,y:<ay" 



; save' is t ■ .f or inverse quant 



.extract t;he* 2nd value and MVe ^^ 3;n-y:<tw.. 



move . y:<curwd.yO ; . 

move y: »;r4*n4) .xC .. . 

mpy xO,yO,a n4,xl 

• sub ■ • . xi . b . ~ ■ ao . y :<curwd 

■ move- b.y;<sc'.^ 



-get' -current frame word .■ . 

'get shift left multiplier per bit 

•shift -extracted bits into al with 

. newly shifted curwd m aO 
; i save passed numb bits required 
•see if next word need to complete 
'.. & save newly shifted curwd 
- ;save new shif t count' 



let's try a macro- 
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j9" • ■ ••.<.?e^d_,18" 
gecnexcword 2o72S 



:~:-s!oye' al,.y:<bv ' ./ /save; i2nd for- inverse quar.t 

: exzracz the-. 3rd value .and save' iz in y:<cv"" 



move 
move, 
cnpy 

sub 

move 
jslr 



y:<curwd.yO 
y: (r4*n4; .xb 
xCyO.a n4..xl 



cnt 



xl,b. 



.aO,y:<curwd 



b/y:<sc 
<gecnextword 



move , al,y:.<cv 
imp. <_gecd_5C 



;get current frame word " .. 
:;get shift left multiplier per bit 
; shift extracted bits into al with 
; . newly shifted curwd in aO 
; & Gfave passed numb bits required 
;see if next word need to complete.; value' 
; & save newly shifted curwd ' . • 
■; save- new. shift count 

'y«s,: .get rest from next i/p .frame word 

; save 3rd for inverse quant. * 
;go to do inverse quantizing 



Pos 



Three adjacent data values are packed into 5 bits. 
Each of the data values are only 2 bits wide. 



packed_value « value 0 

- or-"- '. 

packed value - 3 • : i valueO 



9 ♦ value! • 3 ♦ value2 
3 valuel) ♦ value2 



move #>26.x0 
move «>13,xl 
move . «MASKU?ACK3 , n4 



;1S6 maximum packed value 
; ISO replacement value 
; unpack getvalue mask. 



compressed, switch to compressed mask 





<* DECOMPRESS PACKEE. 


move 


#>14 ,X0 


move 


• #>7.xl. . . : . 


move 


#MASKOTACK3X,n4 . 


_getd_2: 




*" ■■ ■ move 


n4 ,y: <av < 


. move . 


«36,n4 


move 


. ■n4 ,y :<bv-.. 


move 




• move ■ 


n4 ,y : <cv 


. move. 


#12. n4 , 


. move 


h4,y:<crcstrt 


'. .■ move.;. 


• ■:-#3,n4 ■■ 


move 


n4>y :<svereg . 


move 


• .#3.n4. 


move'/ 


n4,y:<not appl 


move 


.': ■.#5.n4. • . ■ 



:lflg;s._getd_21 
; CCS compression maximum packed value 
;CCS compression replacement value 

■ •-compressed unpack getvalue mask 



;5ave in y:<avalue for now 
; unpack initial divisor ... 
;save in y:<bvaiue for now 
; unpack initial multiplier. 
;save in y:<cvalue fcr now 
/unpack second divisor : 
;8ave in y:<crc8trt for now 
; unpack second mu 1 1 i p 1 i e r . 7 
; save in y : csvereg [ for now 
; unpack loop counter 
: save in y : <not_appI for now 



; change to packed values nb: 
if compressed, switch to. con^ressed nbits 



move- 



■^DECOMPRESS PACKED /y :< ct 1 f Igs ,_getd_2 2 

«4vn4.- ; - .-change, tc compress packed values. 
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Pos 2: Three adjacent daca values are packed into 7 bits. 
.- ' Each of the data values, are. only- .3 bits. wide. - 

packed^value . - valueO .* 25 ♦ vaiuel 5 valu€2 • 

packed^value. ■ 5 ♦ (valueO ♦ 5 *. valuel) ♦ value2 



_getd_3 0 



move .#>i24.x0 
move #>S2,xl 
move #MASKUPACK5,n4 



; ISO maximum packed value 
;ISO replacement value 
.unpack getvalue mask 



if compressed., switch to compressed mask 



jclr 
move 
move 
move 



#DECOMPRESS_PACKE,D.y : <ctlf lgs._getd_31 . ; 

#>fi2,xO ;CCS compression maximum packed value 



_getd_31 



move 
move 
move 
move 
move 
move 
move 
move 
.move 
move 
move 
move 



tt>3X.xl. 
ftMASICUPACK5X;n4 



n4 ,y : <av . . 

,«200.n4 ■ . 
n4 , y : <bv 

. #25,n4. - . .-- 
n4,y:<cv / 

*«40,n4 

n4 ,y:<crcstrt - 
«5.n4 

.n4 .y Ksvereg 
#4,n4 

n4,y:<not appl 
# 7 . n4 



;CCS compression replacement value 
; compressed. unpack getvalue mask 



; save in y : < a value . for now 
r.unpack initial divisor . 
;8ave m y:<bvalue for now 
/unpack initial multiplier 
;save in y:<cvalue for now 
.■unpack second divisor 
;8ave in y:<crcstrt for now 
;unpack secpnd multiplier 
;save in y:<svereg for now . 
;\inpack loop counter 
•save in y:<not_appl • for now 
; change . to packed values nbits 



if compressed, switch to compressed nbits 



move 



_gerd_32 



jmp 



,#DECOMPRESS_PACKEO/y : <ctlf Igs . _getd_32 

. «€ ,n4 . " . . . ; change to compress packed values nbits 



.<_^getd_45 



; .Compressed pes 3: - 

Three adjacent data values are packed into 6 bits. 
.; Each of the data values are only. 3 bits wide.. 



€4 



valuel • .8 vaiue2 



packed^value • . valueO 

• or. ' ^ . • ^ - • 

packed value « 8 * (valueO * 8 ^ value!) * value2 



_getd^35 



move. t>438.x0 

move . ■ft>219. xl 

move . #MASKUPACK8X, n4 

move , n4 , y :<av 

move .• #200,n4 • 

. move ■ . ..n4 ,y :<bv • 

move • I»25,n4 

move n4,y:<cv : 



.; CCS compression maximum packed value 
. ;CC£. compression replacement value • 

;.unpack getvalue mask 

;save in y:<avalue for now 
'/;unpack initial, divisor 

..•save ir. y:<bvalue fcr now 
■..•unpack initial multiplier 

;save in y:<cvalue fcr now 
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move ; «40,n4- 

move n4,y:<crcsrrr 

move #S,n4 

move . . n4 , y : <sver€g 

move . • #4.n4 ^ 

move ■ n4 . y : <not_,appl 

move •''#8in4 ■ - •■ ; 

jmp . . <_gecd_45 . 



;unpacK second divisor 

; save in y : <crcsrrx . for now ... 

;unpack second multiplier 

;save in y:<svereg for now 

; unpack loop counter 

;save in y:<not_appl for now . 

; change CO packed values. libics 



Pos 4: Thre^ adjacent data values are packed into 10. bits. 
: Each cf the data values are only 4 bits Wide. 

packed value - valiieO ♦ 81 ♦ valuel ♦ 9 ♦ value? 

i'-.". I'. . '• ~ - " or • 

. packed value > 9 ♦.. (valueO * .9 ♦ . valuel > value2 



_getd_40 



; ISO maximum packed value . 
; ISO replacement value • r ' . 
; unpack getvalue mask 
;save in y:<avalue for now 
; unpack initial divisor 
; save in y : <bvalue for now . 
/unpack initial multiplier . 
;save in y:<cvalue for now 
; unpack second. divisor 
;save in y:<crcstrt for now 
; unpack second multiplier 
; save in y:<Bvereg for now. 
; unpack loop counter 
--;save in y:<not_appl for now 
.•change to. packed values nbits 



.•handle the data value extraction from the frame and unpack for 
[•either position 1. 2, 3 (if compressed) ©r 4 



move 


: . #>72a,xO . 


move 


#>364,xl 


move 


#MASKOTACK9,n4 


move 


n4.y:<av 


move . . 


. #1296, n4 . . 


move 


h4,y:<bv 


move 


#81, n4 


move 


n4/y:<cv 


move 


, . #i44/n4 ■. ■. ■■=■ 


move 


n4,y:<crcstrt. 


move . 


#9/n4 


move 


n4,y:<svereg 


move 


#5.n4. ■ 


move 


n4.y:<not appl 


move 


«lC,n4 * 


nop , 





_getd_45 



move 
move 
move 

. jclr. 
move 



_getd_4€ 



mpy. 



■ -iub" 

move 

.;46it 

movei 
. and ■ " 
move 



xO,x:packmax . 
xl,x:packrpl 
y: tr4«»-n4) ,xO ■ 

ltDECX)MPRESS_PACKED . y i 
n4 . y : getdata!l4Save 

xO,yO.,a n4vxl 

" icl.b ■ ■••.ap,y:-<curwd ■■ 

b',.y: <sc- ;■ 
. <getnextwbrd 



y:<av,xl , 
xl.a 

■al.; a ■ . 



;save position max packed value 

;save position replacement value 

;get shift left multiplier per bit cnt 

<ctlflgs, getd_4S- 

.{Save .the bit field -size- • 



; shift extracted bits "into al with • 

; . .. newly shifted curwd in aO ,. 

; a save passed numb bits required . 
.;.see if next word need to complete value 

; a save newly shifted curwd 
';-8ave new shift count - 

;yes. get rest from next i/p frame word 

■; unpack getvalue mask . ■ 
;mask off high. order one; s . 

;clean up ' . -".■'-X " ' ■ 



•test -fcr k. possible, bit error. that 
■ ;maximurr.: pac.ked- value 



might have caused a value, above 



:he 



; WO 9602805 
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; if- above makrmum/ replace 'with; the middle value.. 



move 

cmp : 
jle 
move ; 



x:packmax,xl 
xl,a 

<_getd_4 7 
x:pac)crpl,a 



;get poisicion max packed dvalue . 
; compare retrieved yalue co max 
;if not above max value, continue 
; since above, replace value . 



^getd_47 



jclr 
move 
move 

jsr.' 



^DECOMPRESS PACKED, y : <Ctlf Igs /_getd_48 . . ; . • . 
v:getdataN4Save.r4 ;. /restore the bit field size- ^ ; ■ . 

. = ;set compressed value for tabxe looJc up 
. cdcompval V ;/ •;■ ;get the; decompressed value for -unpack • 



_getd_48 



jsr 
move 



< unpack 
n0,n4 



;get 3 parts 
.•restore nbits 



;now let's inverse quantize the 3 samples 

■■' getd SO ■ ■.■ ' 

move #shftfcl.r4 • . 

move y:<av,yO 

move y: {r4-Kn4) .yl 

• tfr . yl.b . 

move y:(r5+n5),b0 



jivquanti 1st value: 

mpy yO,yl/a 



move 
add 

move 
mpy 

move 
mpyr 

asl 



aO,a 
xl.a 

al,yO 
xO,yO,a 

a,yi 
yO,yi,a 



y:<dvalue.xl 

y:<cvalue,xO 

bO,yO 

bl.yi 
y:<bv,yO 



;to left justify in iyquanti 
;save A value 
;get left shift value - 
;save left shift in bl 
;get C factor 



;ist value: left justify bits 
; & set DValue 

;move xslt to correct register 

;Y' * D . •„ ■. 

; &. set CValue 

; forget sign extension 

;C * (Y + 0) 

;. & set up C factor 

;rnd scale factor ♦ C * .(Y.^.D' 
; & reget left shift value 
;"mult by 2 again 
; & get B value 



;ivquanti 2nd value: 



n»PY = 

move 
add 
move 
mpy 

move 
mpyr 

asl 



y0.yl,a 

aO>a 
xi; a- " 
al.yO 
xO.yCa 

a,yl 
y0.yl,a 



a,x: (rl).+nl 



bO,yO 

bl.,yi; • 
y:<cv,yO' 



;2nd value: left justify bits - 
; & store 1st data value 
;move rslt to correct register 

;Y.- U : 

;forget sign extension . 
;C ♦ . (Y * D) : ; 
; t reget C factor 

Vrnd scale factor ♦C * (Y t D) 
; & reget left shift value . 
;mult by 2 again. 
; & get C value 



;ivquanti 3rd value: ■ 

mpy. . yO,yl,a 



a,x: (rl)*nl 



; 3rd value: left 3.ustify. bits 
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move 

add 

move 

mpy. : 

move 

mpyr . 

asl 

move 
jmp 



aO .a . ■ .-■ 
xl,a 
al.yO 
xO,yO,a 

a.yr;- V 
yO.yl.a 



. .' bO.yO • : 
y:<bandcnt,b 



a,x: lrl)*hl 



.; t Store 2nd daca vaiue 
;move rslt CO correct register 

;v ^-D- :•• ^ • • .., 

; forget sign extension 

;C ♦ (Y ♦ D) 

; & reget C factor \ 

;rnd scale factor * C • (Y -d: 
; & setup for intensity bouhdar 
;mult by 2 again, i set up ^ 
. ; to test - for mcensicy bounda 
';6tore 3rd. data value . 
;try next channel 



All xhel adjacent values in the sub-ban^ are 0 



_getd_.6C 



clr. 

move 
rep 

:moye 



y : cbandcnt ,b 



#NPERGROXJP 

.a,x: (ri.) ^nl 



•output d value/ setup 

; to test for intensity bounda 

; setup for • intensity boundary 



: i' ?u« d!d^r!ght%hannel, check for joint s;;«eo and the . , 
: intensity bound or sv^-band_^.^^_^^^^ sub-band. ' 

■'. tl ?!|ht rh^ne!""nt'«rreo^4-b«I intensity boundary reached, 
io-hfr^trLS-" rhfi^SStS- bcuj^.^sub.b.na counter ;. 
; ^^ore the go set-up for .the. next sub-band.- . . . 



_getd_70 



jclr 

3 set 

sub 
move 

jgt 

bset 



:-up righ; 



y^»^ . . _ '.and save for next, sub -band . 

; if not reached, continue , . 
; if reached, set indicator . 



bl,y:bandcnt 

< getd 72 v«i-« 
* JOINT^at^SB.BOUND , y : < ct If Igs 



.after the' left channel, ; set-up to. do the right: channel 



_getd_72 



move 
move 
move 
move 
: add- • 

bset 
move 
move 



«mJMSUBBANDS *NPERGROUP . nl* 

y:ivdata,rl .I— 

i >NUMSOTBANDS*NPERGROtJP . a 

.. y:<blOCk,xO . ■ .■■ - .. ■ ;' 
xO i a - ttNUMSUBBAipS , n3 

^LEFT vs^RlOHT.y:<Ctlflgs 
(rl>*nl 
. •al.,n2 



.;adj: to right channel fields 
;get current start address 
;move to SKFs for right channel, 
•get current block offset 
;add right Chan of f set . set . =• 
; A2JD set adj. tc right SBIndx • 
•indicate now doint right 
; adjust rl to right rec data- 
.•offset register 2 r 



We 



hav. just iin^s^ed both^chan^^^ sub^band ■. 

. adjust left and right ^•^"^^^^-^nex- sub -band 
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move 


«>i,.xo •: 


• move . 


y:ivdata,a 


■ . -add . • 


. xO , a : ( r3 ) ♦ 


move. 


a,y : ivdaca . 


. move 


.. #>16,x0 


move 


y: Allow, a 


■ • . add ' ■' 


xO.a #3.h2 


. move 


a«y: Allow 


move .". 


(r2i*n2 



samps 



■.;incr lefr and right' rcvvd 
; address prev sub-band 

.;.adj next sub-band, incr SBIndx 
;save new addr next sub- band . 
;adj Allow per to next sub- band- 

.;;gec current Allow address 
;adj Allow per. adj SKFs by 3 
;save Allowed for next sub- band 
:next sub-band SKFs; addr 



_getd_8C ■ . : 

; ;We have just finished a group of 3 samples per sub-band per channel 
and we' must send these value to the polysynthesis dsp 



move 
bclr 
jsr ' 
move. 



_g€td_9C 



bclr 
rts 



r0.y:<svereg . 
#0,y:<not_^appl 
csynth T 
y.:<svereg. rC 



#0/y:<not_appl. 



. ;save the key register 
; clear tested cit if not.applic 
; synch this, group of values 
; restore. the key register 

;clear tested bit if not.appiic 
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opt ■ ', .fc.mex. ^ V' ' : , 

•Mc) 1995. Copyright Corporate Computer Systems, lac. .All rights : reserved. 

; \DGCST\rsdecl6 .asm;, decodisr . Reed Solomon decoder 

title /RS Codec 64714 decoding program* 
include ,'box_ctl.asm' - 
■ . ■ include ' . . .\ commonN ioequ . asm 
\ ■■ include .'rstest.asm^ ■ . 

•.this program will decode data in the input buffer according 
; a. decode profile with format as follow: 

; parity byte, message byte, repetition times --first block . 

; ■ parity byte, message byte, repetition times r- .2nd block ., 

; ■ ■ parity byte; message byte, repetition times,-b' r. last blpck " ! ■ ; 

• the output data will be placed at. output buff er / 



section 
xdef 
xdef . 
■■• ' xdef . ■ 
xdef 
■ xdef 
-.•■.•.*. xdef 
xdef 
• •. - . xdef 
•- "Xdef 

org 

strdecl6_l_yhe 
pbyte " . 
mbyte ' 
cbyte 
dbyte . 
inbyte 
mapbyte 
RsR3Tmp 
RsLpCnt 
RsLpCntl 
endrdeci6_l_yhe 
endsec 



highmisc 
pbyte 
mbyte 
cbyte 
•dbyte 
inbyte 
mapbyte 
RsR3Tmp • 
RsLpCnt 
RsLpCntl 

yhe: 

ds : 
ds 
ds 
ds 
ds 
ds 
ds 
ds. 
ds : 



1 
1 
1 

1" 



/parity byte 
/message byte 
/codeword byte 
/delay byte 
/insert zero byte 
/mess pari byte, 
;tmp store r3 
.;Rs. Loop replacement 
/Rs X^op replacement 



section hichmisc 
•■■ xdef PROFl 

xdef. ' CodeMinLen ■ 

formula that cal the legency delay 
tP)parity/ (M)message, delay, repetition 
delay - (16*(i>-fM) 



P*P. 



4*P ♦73) / 8 



org 

strdecie 2 yhe 
PROFl - . 



yhe : 



1€. 129,1 



/RS profile 
/RS decode . 
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■dc 

.: dc . 
.-..dc ■ 

CodeMinLen 

.dc- 

• ■ dc • ■ • • ; • 

endrdeci6_2_yhe 

'■ ■ . endsec. 



•o.o,c 

0.0,0,0 = 



•77- 



1, 6. 6, 8, 10,14,18,24, 30,38,46 
56, 66,78,90,104,118 



;RS code tr.in length per block 
;C«0 , 1,2, . . , 10 - ■ 
.■;t.-il,i2, . ;,16-' ■ v: , 



; RS decode routine 



; This code is for RS decoder c hi P that the inout is alwavs enabled 
; out output wi^l be enabled when We have the output coming . 



on entry 
rl 

. ■ • .r3' 
;r6. 

oh exit 
; rl 
r2 

Vra-- 

r4 
rs 
r6 

■ a" 
. b 
xo 

XI 

. yo 



output' ptr in X SPACE ■ 
input profile ptr. in r SPACE 
input data jptr in X SPACE . . 



destroyed 

destroyed , 

destroyed 

destroyed 

destroyed. 

destroyed 

destroyed 
destroyed 
destroyed 
destroyed 
destroyed 
destroyed 



r5deci6 
;initial here 



pli: 



■^Befitry 



move .#-l,m6 ' 
move #0.n6 . : 

move^ . #-l,nil. 

move /. #3-1, ni2 . 
move #-l,m5 

move ■"• #2,r2. - 

.move ■ #0,.r5 " 

'move ■ "; . #>24-,x0- ■ . ' 
move .;x0,y:rssc 
move; • x: (r6)'»-,x0 
move : x6 , y : rscurwd 

bcir_ : • fti;x:<<M" PCS 



; reset reg r6 to linear 
; reset n6. to .O. 

;mpd 3 --. 2, 1,0 ■ 

■;set to first byte ; ". 
•;word. count 



?set for rsget values. 



ZT. the bit. elk 
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78. 



ir.bvap » S 0 e C 8 , X : < <M_BCR. 
rSDFTWARS R£SEt' / 



:se 

;set y 



-LOW zo "cs* :: 
tor 8 wai: 



state ... 



cir 



, ;2ero 

.• •move - •,•..•• al,y :RSReg8 . ; resez .ir4- case . • • • 

; wait for some clock tc pass away for the completeness of reset 

•■ 'do.'. ..' »40C- .resetch ^. =•••' - " ' " ' ^ •■^'./^ . ' 

'•..'"nop. : : • •• " : '. ^^'V■ " ■ • r. 

_resetch . ■ * •/ • .r. 

'; read message .length and parity length- from prof iie ... : 



. c-r 
move 
move", 
move- 
move 



a : ■ :•■ y : i(r3 i '^^xl 
.a,y:inbyte' 
xl,y":pbyte • 
y: (r3/*;al , ' 
al, y: mbyte* ■ 



; parity 

;set no insert .byte 



; message length 



; decide whether add. z^rb is heeded 



move 


y':pbyte.al ' 


;get parity byte 


; Isr 


a ■■• ■-■ ■ '. . . 


-■- ;'/2 ■ . ■ 


move' 


. #CodeMinLen. r4 


. :;get min - codeien . .- 


move ^ 


."■ a,n4. ■ 


•. -^pget T • 


. ■ move.., 


■ yimbyte.xl • 


'. '.'get. message byte 1 en 


move 


. y : (r4*n4) , a 


; get min len allowed 


cmp 


xl,a ■■ -• 




■ .jle-. 


•■ ■ -c ■ Nolnsert 




SUE 


■ .■ xl,a 




move 


a.yiinbyte 


; store insert byte num 


_No insert . : 






move 


y ; inbyte, a 


;get. inserted byte • 


move 


y : mbyte.. xl ..' - 


■ ■■.•.• add : 


xl,a y:pbyte,xl 


; codewo rdl eght emby t e * pby t e + inby t e 


add ' 


xl.a' ■ 


■ ;codewordleght»mbyte«»-pbyte*inbyte 


;• wr RS block 


length ■.■ 




move 


■ai.,y:RSRegl"-- 


• ;a4'«0.a3-I only 40MH2 >lk and CS i 


; . move 


. al.yimapbyte^ -. 


• save message t*: parity byte 


move 


. ■■■] y:.mbyte.,"a •. ■ ■ . 


• ■ ••' v.gct raeaasge byte- , ." 


move 




.;get message. -byte ■ 


•.■ sub ■■ 


■ xl.a y : mbyte, xl 


■ move' 


, .al.y:cbyte 


•• --;;save message', byte .iength" -1- 



and WR 



ca. tne aeiay 
move 

neve 

:■■ :lar^. 
• add- ■ 
•■ Isl 
■: .'Isl 
- ads.;". 



yipbyte.xO 
xCfXO, a-, 
ao.al 

a .-. : 

: xo . a 

b . 
■ b ■ ■ 
xCc 



#>73.x: 

y:pbyte.b.'; - 
al.xOV- 
y imaccyte, al 



load xO 

;a »• p**2 

;*^-73.. ■■ 



4xp 



S0BSTITUrESHEEr(BUl£26) 1^ | 



wo 96/32805 



PCT/US96/0483S 





;■ Isl-: ■ 


a. . 








■ a 






■■■Isl". 


■ a-- 






■ ■•■ - Isl ■ • 


"a • 


bl.xO 




• add •' 


.xO«a / 


#>l.xO 




■ •••isr. = 










■ . •• a ■ 






. ' ■ Isr 


* -a'; . 





; cal the delay 

"sub ..' 
sub 
■ sub 
move 



xl, a 
XI, a 
xl»a 
al,y:dbyce 



y:pbyte,xi 
y:inbyte,xl 



-79r 

;x, 16 



;-*• I6x(m<hp) 
; /a 



;get p byte . 
;get insert byte ^ 



. move. yipbyte.al 

; Wr parity .length . 



move. 

Isr, 



al,y:RSReg2 
a 



.; Wr correction power, t number 
move > al , y : RSReg3 ' , 
V- move ■ , #>32 ,.al 
;Wr synthesis clock . 



move 
move 



al,y:RSReg6 
#>0,ai 



; Wr.bit per symbol 

move ,aI,y:RSReg7 . . -. 
; reiset again after all register have 



move 
move 



#0,al 

al,y:RSReg8 



-;. wait for some time 

do #400,^resetch2 . . 

■ nop ■. 
^resetch2 

bset '#l/x:«M_PCD 

:;; Initialization is completed 

movep #$0101 , X : <.<M_BCR 

;. RS decoding Start, 

...move . y:(r3)r*'»xO 
move ■ . ■ xC , y : RsLpCnt ' 
•move. r3,y:RsR3Tmp 



.-delay without output . reading . 
;t of bytes to be PARITY BYTES 



;a4«i0.a3«l elk' CS/WR pulses are active 
;/2 get correction power. 



;a4a0, a3»l only reset pulse and elk 
;set SYMBOL Synthesis of the RS codec 



;N at address 5 -. 

;set SYMBOL division 8 bit per symbol 



.; address 6 
been filled . . 

; reset again 



;40 MH2 elk is there: 

;turn of f the bit. elk after reset • 

,;set low duration, of "cs" (chip sleet. 

/load the repetition time.; 
;save' r3 . for later' 
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. _RsLoop 
; gee first, input byte 



move 

jsr ,: 



<rsgetva:iues 



; or . FRAME START SIGNAL and firist byte 

"■ move' • ... #>$100,xl- •■ 
or • ■■ xi,a ■■ . ■ . - V . 



do =. #8,_dtasndl00 
movep al,y:<<RSIN 

^dtasndlOtf'. 

; input message- i byte to decode . 

! clr a y:cbyte.xO: 
move xO,y:Rsl*pCritl 



_RsI*oopi. 



dtasndl 



move #8 , n4 ' 
jsr <rsget values 
do #8,_dtasndl 

movep . al,y:<<RSIN 

move y : RsLpCnt 1 , a 

move . #>l,xO 
sub xO, a 
jle <_EndRsLoopl 

move . a,y:RsI-pCntl 

. jni^= . < RsLoopl 



.;insert frame start signal / 

; The f irs t DATA byte is" OR gated 

;as the R-S codec thinks you are - 

■; sending . the first data byte at. 
;the same time with the FRAME ... 

';; start pulse." 

;SEND 1st data byte and *aiso RAISE the' 
; FRAME START .PULSE . . 



; initial loop count 



;a4«l,a3»l only elk and data 

■ ; test loop cnt 
;dec count . . 



;resave loop count 



JEndRsLoopl / 

; insert zero message byte to decode if it's not zero 



move 
tst 

jeq 

clr ' 
move ; 



. y:.inbyte,a-; 
a. ■ . , • 

c^NoIntion;- 

a y:inbyce,xO 
xO,y:RsLpCntl. ■; 



.;chk if : insertion is needied 



; initial loop count. 



^RsLoop2 



dtasnd3 



do 

movep 

I ■ 
move 
move 

sub ^ 

jle 

move 

.clr .•: 
. jmp . 



#8; dtasnd3 . 
al,y:<<RSIN 

y:RsLpCntl, a 
#>l,xO 

.xO, a- •■ 
<_EndRsLoop2 
•a7y:RsLpCntl: 
.a 

■<_RsLoop2 . 



; a4 »1 , ai >1 only elk and data 

■'.•..■.■■•■.';test loop' cnt ■ 
•■';■..* ;dec count ^ 



' ;resave. loop count 



suBsnrtrTE sheet (rule 2s\ 
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■ _EadRsL.oop2.. 
; input parity byte to decode 



■ clr- • ; 
move 

._RsLoop3 

*" , ■ • move 

■ • do 

movep 

_dtasnd5 

.■ move 
. move 
sub 
■ .■ jle , 
move 
jmp 

_EndRsLoop3 



a y :pbyte,xO 

xO,y;RsLpCntl 



; initial, loop count.. 



<rsget values 
#8r dtasndS 
al,y:«RSIN 

y:RsLpCntl,a 

»>l,xO 

xO, ia . 

c EndRsLobp3 

a7y:RsLpCntX 

< RsLoop3 



;a4«iia3«l only elk and data 

;test loop cnt- • 
.f dec count • • 



; resave . loop count 



push zero input, for delay byte 
a 



clr 
. move 

RsLoop4 

• • - . . do . ■ 

movep 
^Gdataipo 

.' . move 
move 
sub 
■ jle 

■ move . 

■ . clr • 

jmp . 
_EndRsLoop4 



y:dbyte,xl 
xl,y:itsLpCntI 



#8, GdatalOO 
al,y:«RSIN 

y :RsLpCntl,a 

#>i,xo ■ 

xO,a 

<_EndRsLoop4 
aTy:RsLpCntl 
a 

<_RBLoop4 



reading decoded data output 



move 
move 
move 



y: mbyte, xl 

#>SBO,yO 

#>$8000,yl 



move xl,y:RsLpCnti ; 



. RsLoopS 

clr . 
■ do ■• 
movep 
._Gdata200 . . 

move 
• and-. ' 
move 



a #>$ff ,xO 

#8,_Gdata200 
ai,y :<<RSIN 

y:RSOUT,bl 
xO.b ■ • ■ • 
bl.xO 



; initial loop count 



;a4»l,a3«i only elk and data 

/test loop cnt . . 
;dee count . ■ 



; resave loop count 



test :byte counter and put output by 



; shift right 16 bits. " 
; shift right 8 bits 

; initial Ip count 



;a4«l,a3«l only elk and data 
. ; provide clock and read data 

■ ■'■;get'.set: for ^shift ■- 

:e to. right pos of output buffer. 
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move 
move 
cmp 

jxie/ 



fst byte 



mpy 

. clr ;.. 
move 
and! 
move 



^Tndbyte 



cmp 

;jne 

mpy : 

clr 

move 

and-.. 

or. 

move 

jmp 



_Lscbyre 



clr . . 
move 
and 
or 
move 



■ r2 , a- • ' :• 

xl,a «>l,xl 
<^Tndbyte 



xO,yl,a #:^$ffOOOO,xO 

b- ■; 
-aO.;bl. ■ •■■ 
^xO.b* 

bl.x: (rl) ; 
< EadAByte 



xl/a . #0,jcl : 
'<_Lst:byte 

xO,yO,a #>SffOO,xO 

aO,bl 

xO,b x: (rl) ,xl 
xl,b 

bl/x: (rl) 
<_EndAByte 



b 

xO,b x: (rl) ,xl 
xl,b (r5)* 
bl,x:(rl)+ 



•gee byte count 



;shifc right- 8 bits. 



; shift : right; .le' bits 



;or it with previous. 8 bits 



•masic .of f last 8. bits . .. 

; increase word count 

;save the musicara data for desert 



^EndAByte . 
" move 
move 

■ ■ .move 
sub . 
• ■ jle... 
move 
jmp 

_EndRsLoop5 



(r2) - 

y :RsLpCntl,a 

#>l,xO 

xO . a 

< EndRsLoopS 
a7y:RsI.pCntl 
<_RsLoop5 



;2-i-0 mod 
;.test. loop cnt 
;dec coxant 



;resave loop count 



forget inserted zero message byte next 



move 
tst • 

: jeq : 

■ move',. 

RsLoop€ 

. ■ ;do- . 
movep 
_^dtasnd20 

move 
move 
subv! 
■•; jle • 



y:inbyte,a 

a - 

<_NoIntionlO 



xO.y.RsLpCntl 



<*8._dtashd20 
.al,y:<<RSIN 

y;RsLpCntl*a 
#>l,xO , 
• xO r a 
< EndRsLoop6 



y; inbyte,xO 



;chk if insertion is needed 



; initial Ip count 



; a4«i , a3»i only elk and data 

: ;test loop cnt 
; dec '.count 
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' move 


- a , y : RsLpCnt 1 




'■' clr-- 






V jmp 


<_RsLoop6 




_EndRs Loops ' 






_NoIntionlO 






; forget parity output at the end of 


-frame 


clr 


. a . ; y ;pbyte. xi . 




[•: move . 


xl,y:RsLpCntl : ' 


initial- Ip count -. 


RsLoop7 






. <^<^ 


- #8, Gdlata300 . 




movep 


■ al,y:«RSIN• 


• ; a4el , a3«i only cik and da 


_G<iata300 






. . . ■. • move .. 


y:RsLpCntl,a - • ". 


. .. -test loop cnt" 


move 


#>l.xO 


• ;dec count- . 


sub 


xO, a , .. 




•■ . ■ : . 


<^EiidRsLoop7 . 




■■ ■ move 


a7y:RsLpCntl 


; re save loop count 


clr. 


- a - . 






<_RsLoop7 




^EndRsLoop? 






move 


y:RsLpCnt,a \ 


;test loop cnt . 


. move 


#>l,xl ■ 


;dec count .. 


sub 


. xl,a. 




: - jle 


. <_RepEnd •; 


;resave loop count 


move 


aTyiRsLpCnt • 


jmp. •/ 


" <^Rstoop / , 





;- repetition end 

RepErid ■- ' ■ . "^^ :• 

move y:RsR3Tmp,r3 /reload profile ptr. 

'nop ■ .• ' 

move y:(r3»,a ;test if a '0'; at last RS. block 

* ■ ■ tst . ■ -a - \ 

; jne - ■<_Bentry . J • 

; patch 2erb to make 96 (a full frame) 

-•move"- ■ #>96,a ■ •■ 
• •-. move ■• r5,x0. 

sub '.' • xO,a' #0,xO..; 
■jle-^ <_PatchZerol .. ■.; 
•"do a-, PatchZerol- 

move xoTx: (rl)* . .. ;inc to next frame 

_PatchZerol ;;. V . ^• • 

;.'end of RS decoding, for One Profile.: . 

•.move . #-l-,m2"' - ■ 

.: movep #S0001,x:<<M_BCT ;set all externa! io wait states 
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. ' .opt; ; . • ■• ..f c • \- • _ ■ ■ ". . ■ ; 

(c) 1995: Copyright Corporate Con^uter Systems, Inc;. All rights reserved. - ^ 
\DGCST\bitalloc.asm:. use the. ojpsych parameter ♦ safety margin). 
This routine is used to allocate the bits. 

It . allocates at least some bits to all sub- bands with a positive SMR 
-It allocates in three phases: •. 
A... allocate all sub-bands until they are all below 

the Global Masking: Threshold 'regardless as to how many 
. bits it takes) . • 

note 1.. a limit (sub-band boundary) is set which requires "•■ 

all sub -bands up to the boundary require at least ■ ..^ 
index 1 be allocated even if the signal is already ■ 
below the Global Masking Threshold. (This provides : 
a noticeable improvement in continuity of sound) 
After Phase A is completed, a test is made to see if the bit pool 
was overflowed by the allocation. 
• a. if. the frame fits. Phase 3 is skipped and Phase C is done - 
b. otherwise, Phase B is required to selectively de-allocate, the;" 
, best sub-band candidates. 

on -entry 

'. y:<stereo-» flags:. 

(set on entry) ..bit 0 indicates whether or not left channel active 

P »■ channel not active ■ .. 
' . ..; . 1 « channel active for framing 

bit ' 1 indicates whether or not center channel. active .. . . 

0 • channel not active . 

.1 "Channel active for framing 
bit 2 indicates whether or not right channel active . ' ': 
C » channel not active 
.1 - channel active for framing . 
"bit 3 is used to indicate left vs right channel 

applies if bit 4 set to 0 (NOT center channel) 

.0 ■ looping through left channel arrays ■ 

* . 1 » looping through right channel arrays 
..bit 4 -is used to indicate center channel vs left right v 

. 0 - process left or. right channel arrays 

1 « looping through center channel arrays 
bit 5 is used as the FirstTime switch in an allocation 

0 - cleared if any allocations were made 

1 ■ no allocations made to any sub -bands 

.bit 6 is used for critical de-allocate and allocate passes: 
. . with below masking threshold being a criteria 
-.-""de-allocate: 

.0 «. select from any sub -band channel 
.1 - select from only .those below mask . 
"allocate:" v-; " 

. .6'« there are sub-band channels not below mask 
1 • all sub-bands are below mask 
bit 7. is used for critical de-allocate and allocate passes:: 
• de-allocate: ; ; 

• 0 «• select from' any' siib-band channel " " 

. 1- select, .from those with 2 or more allocation 
S.'. .*■ 'allocate: . 

; • . . . 0 « are sub-bands not below hearing thresh ,. 

1 - all siib-bands are below hearing thresh".- 
' bit 8 is used for critical de-allocate and allocate passes: 
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■;■ ..■ .. der allocate:" *■:• ■■'. 

. . • 0 ■ select; from any sub-band' channel 
: - . ■ select from any sub-band channel. 

• • allocate: for final pass after bit- .allocation timer •. 

'• 0 timer interrupt not- yet* sensed' • 

\ *':/ . ■ -1 "i-timer interrupt was sensed 

r -v bit 9 is to singly indicate that the sub-band limit for 

; ; . ' . . allocating at least. ONE position has been reached 

• . .within a. current loop: -" 
. ■ 0 ' NOT at sub-band limit 

• 1 - reached the sub-band limit- .. 
; . \ bit 10 is. to simply indicate that the maximum isub -band for 

.consideration for allocation has been reached 
.'.'..•within a current loop: 
;. . . c - NOT. at maximum sub-band limit 

.1">- reached the maximum sub -band limit *:'■.■'. ' 
• '• ■ ' . . . ■ " . 

. ; ■ ■ - yraudbits - number of bits iavailable for -sbits, scale factors and .data-"- 
:y:<usedsb. - number of siab-bands actually used 
y:<limitsb = number of sub-bands requiring at least one allocation 
y:<qtalloc » timer interrupt set to signal quit allocation loops 
; rO.« addr of the SBits array (x memory) 

' rl « addr of MinMasking Db array (x memory). 
. r2 • addr of SubBandMax array (x memory) 

r4 - addr of the SubBandPosition array (x memory) 
; ;. r5 » addr of the SxibBandlndex array . {x memory) 

j-.'oh exit 

. .as- destroyed 
; b « destroyed 

xO » destroyed -. 
'.^^ xl' * destroyed ' " ••■ ; 
; . yO .«» destroyed. . ' 

'.; yl » destroyed . ■ 

; ■ • . • t2 9 destroyed • 

r6.-« destroyed 
; ■'..; " nO - a destroyed 
: ■■ . nl = destroyed 
. • n2 .« destroyed 
; ■ •• n3 « destroyed.. 
;■ . " n4'. • destroyed.- 

■ nS « destroyed 
; .-■•■ ne •« destroyed;.; ;■ 

AtLimit array by sub- bands, (32) : 
; bit 0 set when allocation is below the masJcing threshold 

;* ' bit 1 set when allocation is below the threshold of, hearing 

; . bit 2 set when allocation is at the -limit of maximum position.....' 

or there are not enough bits to allocate 
.; . ^ . the sub-band further . 

• include 'def.asm' : ' • • 
■ ' . include 'box^ctl.asm' " 

'.section lowroisc ' : ^ ' / :^ ; * " ■ 

xdef / .' MNRsub .' 
■'. xaef ; . '.-AvlBitS- '•■ 
. xdef.-.- - TotBits 
"'.xdef; . KldBits 
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. xdef ' count. 

■" ■ ' org 'v yliV- 
stbitalloc^yli 

MNRsub ds : 1 . 
AvlBits ds •.. . 1 . ■ ' 
TotBits ds 1 
HldBits ds - 1 . 
- count ' ■ ds . : • 1'- - : 

endbitalloc^yli 
endsec '■ . 



86- 



;count cf entries in de-aliocate. tables 
./available bits, to allocate* 
fcurrent bit count allocated 
;sub-band critical. allocation 
;sub-band counter 



section highmisc 





xdef 


Bits Add 




xde£ 


BPosAdd 




xdef ; 


• BInxAdd 




xdef 


AllwAdd. 




xdef 


MaxPos 




xdef 


MNRsb 




xdef 


MNRmin 




xdef 


MNRinx 




xdef 


MNRpps 




org 


yhe: 


s t b i t a 1 1 oc_yhe : 




Bits Add 


ds 


' l" • 


BPosAdd 


ds 


1 ■ ■■ 


BInxAdd 


ds 


1 • 


AllwAdd 


ds 


1 . 


MaxPos 


ds 


1 


MNRsb : 


ds 


1:. 


MNRmin 


ds 


1 


MNRinx 


ds. 


• 1 * . ■ : 


MNRpps 


ds 


1 



;save address of SBits array 
;save address of SBPosition array 
;save address of SBIndex array 
.; save addr of applicable Allowed table 
.;Max Position per selected Allowed table 
;curr sub-band for allocation 
;value of curr sub-band for allocation " 
; new index for selected sub-band , 
;new allowed position for selected sb 



endb i t a 1 loc^yhe 
endsec • 



section highmisc 



xdef 
xdef 
xdef 
xdef 
xdef 



AtLimit 
SBMsr 
SBMNRmax 
MNRval 
MNRsbc ; 



•. - org ' . xhe . 
stbitalloc_xhe 

.;flags set when a siib-band reaches its limit of allocation: 
; . (one per 32 subbands) 

bit 0: Set if below the global masking threshold 
-hit" l:- set if not- "used or' fully allocated • . 



AtLimit . ds 



NUMSUBBANDS. 
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;This array holds zhe MinMaskingDb - 
■ SBMsr" . ds ' . NUMSUBBANDS 



•87. -X/..' 

SubBandMax for each of the 32 'suiabands. 
; Mask-Signal ratio by sub-band 



; This array holds che deallocation • selection values:. . 

(MinMaskingDb - SubBandMax)' ♦ SNR [position at. next lower' index] 
; for each of the .0-31 subbands' 



SBKNRinax 



MNRval 
. MNRsbc 



ds 



ds 
ds 



NUMSUBBANDS 



NUMSUBBANDS 
NUMSUBBANDS 



; Mask- to -Signal ratio- - 
; plus SNR [ Prey Pos ] . ..-.' 

;table of - ordered values sub-band 
; table of. associated sub- band 



endbitalloc^xhe , 
endiec- 



section x^^bles. 



xdef 
xdef 
xdef 
xdef; 



ndatabit 
NDataBit. 
NSKFBits. 
SNR . . 



; org ■ . xne: . 
,stbitailoc_xtbI_ 

;This is the.addr of the selected table, ISO or CCS compression/. 
; . for the number of bits for. data allocation by position 

ndatabit ds 1 ;addr ISO or CCS compress NDataBit tbl 

; This is the ISO table for the number of bits for data allocation by position 
NDataBit ■. 



dc- 


0*NUMPERSUBBAND 


; index 


B 


0, 


no transmit 


c 


0 ■ bits 


dc 


5*NUMPERSUBBAND 


. ; index 


B 


1/ 


packed 




GO bits 


dc 


7 ♦NUMPERSUBBAND 


; index 


m ' 


2. 


packed . 




84 bits 


dc . 


9*NUMPERSUBBAND 


; index 




3 . 




s 


103 bits 


dC-: ■ 


1 0 ♦NUMPERSUBBAND 


; index 


■ 


4, 


packied 




120 .bits 


dc 


; 1 2 ♦NUMPERSUBBAND . . 


.index 


s 


5 




m 


144 bits 


dc. 


1 5 ♦NUMPERSUBBAND ' 


. =. ; index 


m 


6 




. m . 


180- bits 


dc 


. 18 ♦NUMPERSUBBAND 


; index 




7 






21i6 bits 


dc 


2 1 ♦NUMPERSUBBAND 


. . ; index 


a 


8 






.252 bits 


dc 


2 4 ♦NUMPERSUBBAND * 


; index 


B 


9 






268 bits 


dc 


2 7 ♦NUMPERSUBBAND- 


; index 


s 


lb 




a- 


324 bits 


dc 


30 ♦NUMPERSUBBAND ' 


■ ; index ■ 


m 


11 






.360 bits 


dc ■ 


33 ♦NUMPERSUBBAND . 


; /index 


■ ' 


12 




m- 


396 bits 


dc • 


3 6 ♦NUMPERSUBBAND. . 


-■ index ■ 


3 


.13. 




m 


432 bits 


dc 


3 9 ♦NUMPERSUBBAND. ; 


; index 


m 


14 






'468' bits 


dc 


. 4 2 ♦NUMPERSUBBAND . 


'.\ . . ;.index" 


m 


15 




m 


504 bits 


dc : . 


: 4 5 ♦NUMPERSUBBAND 


.; index. 


m ■ 


16 




m 


540. bits 


dc 


'48 ♦NUMPERSUBBAND 


; index 




17. 




m 


576 bits 



;This is.' the; CCS conpression table for number of bits 
• for .data allocation by position '- 



ac 



©♦NUMPERSUBBAND 
4 ♦NUMPERSUBBAND 
€ ♦NUMPERSUBBAND. 



; index « 0.. ho transmi 
=; index ■ l*. packed 
; index « 2i _ packed , 



0 ■ bits' 
'48 bits 
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-88 





8*NtJMFERSUBBAND 


; index 


a 


3 . 




95 ci-s 


• * dr 


1C*NUM?ERSU3BAND. 


; index 


a 


4 , packed 


■ 


120 


bits 


dc ' . 


^2*NUM?EkSXJBBAND 


; index 


m 


'5 




144 


■bits 


■ . dc .. 


1 5 ♦ NUMPERSUBBAND 


; index 




6 ■ * ■' 




180 


bits 


dc 


IB^NUMPERSUBBAOT 


; index 




.7 ■ ■ / ■ 


'a ■ 


215 


bits 


. dc\' . -■ 


2 1 ♦NUMPERSUBBAND . 


; index 




'a ■,• y. : 




252 


bits 


dC' 


24 ♦NUMPERSUBBAND 


■ ; index 


m 


9 


m 


288 


bits 




. 27*NUMPERS0BBAND • • 


. ; ; index 




10 


■ B 


324 


bits 


■■ ■ dc * 


30*NUMPERSUBBAND • 


; ; index ■ 


■a 


■ 11 • ■ • 


■ ' m ■ 


360 


bits 


dc ■. . 


. 33*NUMPERSUBBAND . .. 


index 


'b 


12 - . . 


a- 


396 


•bits 


■•■ dc "■; 


3 6 * NUMPERSUBBAND 


; index 




13 . ■ • 


■. .a . 


432 


bits 


■ dc . ■ 


3 9 *NUMPERSUBBAND 


. ; index 




•14 ■ 




468 


bits 


. dc 


4 2 *NUMPERSUBBAND 


; index 




•15 ■ . 


m 


504 


bits 


•dc . 


4 5 ^NUMPERSUBBAND 


■ •; index 


-s 


■16 - •■• • ■^ . ■• 




540 


bits 


• ■ ■ dc • 


. 4 8 ^NUMPERSUBBAND . 


.; index 


m 


■ 17 . . 




576 


bits 


1 sub -band, 


if it is cransmirced. 


.must send i 


scale '.factors . 


The 





;Sbit patterns determine how many different scale. factors are transmitted 
;The number of scale factors transmitted may be 0 , " ^ - - ^ 
.•factor requires 6.bits.v; 



2 or 3. Each scale 



;Sbit patterns 
00 

; / 01 

;. • " 10 ■ 
; . • . 11 '" 



Transmit: all three scale factors .18 (3 * 6 bits). 

Transmit the second two scale factors 12. (2 ♦ 6 bits) 

Transmit only one scale factor 6 (1.* 6, bits) 

Transmit the first two scale factors .. 12 ; (2 • 6 bits). 



;The NBits array is used to determine the number of bits to allocate for the 
"■scale factors. NSBITS .<the 2 bits for SBits code ) are added • to account for 
•all required scale factor bits (1B*2, 12*2, 6-^2M2«»-2) . . 

-NSKFBits-' , ■■ ^•: 

dc-'- ■ 20.14,8.14 . 

;This is.the tiabie for Signal to .Noise ratio by. position : 

include ■'. AxmicrpXsnr. asm* •; ■ '•• 

endbitalloc_xtbl. . 
• endsec 



org 



phe: 



bitalloc 



;Save the array starting addresses 

move rO,y:BitsAdd 
. move. r4,y:BPosAdd - ;.. 
move r5.y:BInxAdd 



;save register of SBits array 

; save register of SubBandPosition array 

;save register of SubBandlndex array . 



.-select the ISO or CCS comperss ion table for NDataBit 



move . 
move 

•■ move ' 

>iCa_20_A 

move 



#NDataBit.r5 . ' . ■ -J standard ISO^ta^^^ ■ ^/ ^ . 

^3^3 .-offset to CCS compression tabxe. 

#0.y:<cmprsctl. bita 20^ * ?if not applicable, continue 
IrstVnS " . ;select:the CCS compression . table . 



r5.x:ndatabit 



;set addrof NDataBit table' for al 
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.;set up the MNR frray 

move #SBMsr,r5 
;apply Che safety factor 

/ move . y:o_psych.yO. 
.; loop through all sub -bands 



;addr of Mask -to -Signal by sub-band 
;get the safety factor 



do 

move 
move 
sub 
• sub 
move 



#NUMSUBBANDS , _bita_30_A 
X: (r2) + ,xO ^ , . . ~ 
x: (rl) +,b- . • . 
xO,-b. ^ 
yO,b ■ 
b,x: (r5)r 



bica 30 A 



;get a channel SBMax 

;get its channel MinMsk 

;MinMask - SBMax » Mask- to- Signal ratio 

;apply. safety factor to channel value. 

/Stores; for test- if below mask already . 

.;END'of: 'd6 loop ■ ■ " 



;8et the working value for bits available for allocation; 



move 
move 



y:audbits.xO / 
xd,y :.<AvlBits 



;gef standard available' bit cnt 
/store as working bit cnt 



bita 40 A 



.; (c) TotBitS ■ 0; 



■/* Start the bit .allocation. counter 



clr 

move 

move 

move 

bclr 

■bcir: 



a • 
a.yl 

a, y : <TotB 
a.y 



#>i,.xi 



/total bit used, xl » 
;yl m 0 to initialize 



1 for start index 



.ts 



:< count 



/start the sub-band, counter 
#At LIMIT_SUBBAND.y:<stereo /NOT yet at sub-band limit 

. . . . / which require at least 1 allocation 

#AT USED SOBBAND,y:<stereo ;NOT yet at sub-band maximum 

" / limit .for coding , used sub-bands 



/initial allocation for all sub -bands; . 

1. that are within the use (less than OsedSubBands) 
/ 2. with a MinimumMasking to MaxiraumSignal above the masking threshold 



move. : . #SBMNRmax,rO 

move . #SBMsr.rl 

move y:BitsAdd,r2. 

move y : Al 1 wAdd , n3 

move y : B Pos Add , r4 

move y:BInxAdd,r5 

move " »AtLimit., r€ , 



;addr of de-alloc Max signal-noise 

;addr of Mask -to- Signal by sub-band 

/set register of SBits array 

;init the current Allow table 

/set register of SixbBandPosit ion array 

/set register of SubBandlhdex array 

/point to. SubBandAtLimit ; array 



/clear the n registers for the. channel reference. 



clr 

move 

move 

move 

move 

move 



nl 
n2 
n4 
nS 
n6 



#0.nO 



; SBMNKmax array 

/SBMsr. array 
./SBits array ' . 

/SBPos array 
../SBindx array . . 

/AtLitnit array 
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■ [[■■'■ ■■■■^ /-so- 'V'^ ; -.V'-. •■ -y^y"-:.-- 

initial'- allocaticn pass" 
-;dc'.ali required sub-bands .* 

do '■ ' IINtJMSUBBANDS,_bita_990_A./:" . " ' ^-i • "^'v- ! • ' 

• •. vif-i-if-ize- the per-inenc " sub-band, values co ..C 

... move yl.x: (rS-i^ne). ;clear allocated limit flag 'AtLircit). . 

"move yl , x : (rS^r.S v vciear allocated . index . {SBIndx: 

..;move . yl . x : (r4t.n4 i ■ ■ ;clear' allocated- position- tS3?os;'. 

• ;if we reached- the used sub-band limit, . . . 
.; take^this one out/ of the picture completely 

.. . " . .jset. ■ #AT_USED_SyBBAND.y:<stereb>._bita_lBO_A - 

. move •.. :-y:<count .yO ■ ■•"Vge.-. current .-sub- baxid* (00-31 .\ 

;see if we reached "the- used sub-band limit. '": 

move y:<u8ed8b.b > get count of used subbands for testing 

• . cmp yCb '■;see if sub-bandvnot to be coded, 

.jet" - .<J^^^^^^O_A ■;• •;if.not, continue.- 

bset «AT_USED_SUBBAND,y:<stereo ; just reached sub-band maximum . 

jmp . <_bita_180^A • ^ ;.take completely out of use • ' 

_ _bita_5C_A; ' ^ ■■ y_ 

:it we reached the sub-band limit for those requiring- at least one sub -band. 

; . see if . we have anything to allocate to get below the Global Masking Threshold. 

• jset. ■ • «AT_LIMIT_^SUBBAND.,y:<stereo-._bita_90_A 

:seeif at- least one allocation is' required regardless . of signal. to noise ! ratio . 

, move- ' * y: climitsb; a . ■ . ; get sub -band limit for at least- 1 alloc • 

cmp . yO.a ^ '\ '';tt there is initial- allocation 

. 3gt- " <_bita_95_A . .; continue .' /. 

bset ■#AT_l-IMIT3sUBBANr},y :<stereo . .. ; just reached that - limit 

■"■ _fcita_90_A ■ . ■ ■. ' . '• 

jcthervfise. see if below Mask- to- Signal 

•move x: (rl*nl) .a . , • , ■ Vget -iBub-band' s Mask- to -Signal ratio , . 

tst- ' a ■ " : ■ . • ■■;test Mast-to-Sig for positive "value •• . •. 

. jgt. ,<_bita_190_A if below, masking thresh, ■ set flag 

• J:i.ta_95_A ; .•; ; ■■ • =- ■'. [' . 

■*••..". .■•••find Signal -to-Noise' position that puts Signal below Masking Threshc Id . ' 

'.move- ' . -jcLr?" . , • ;start at '1st Signal- to-Noise pcisition ..' 

'.move --' «SKR-,nT- ' •■ " ; • ;addr of Signalrto-Noise table.. . 
...-mbve' ;. x: (rl4^nX).,yC ;•, \;get signal ^to- mask ratio.- . 

op ": ' . ; "lINUMSNRPQSrTICNS-^l. jbita^llO^A . ■ . 

.mcve x: irT^n^'^.a ;get the Signal -Ncise at pcsiticr. • 

add yt,a'\--'r.' ;'add MNR to SNR- fcr.test. . 
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■. jle, <_bica_13C_A . ;siill above mas k.' rry next position 

/now below the Global Mask, quit -.the iocpv 

• enddo - .-found position., stop #NUMSNRp6s-i loop ^ 

■■■ .jmp ■•" ■ <_bina_^110_A'' ' go. to- -end of loop;. 

j3ita_lC0JV • ■: .. '.. -. /^ ■ 

; try thie next position- and continue the loop 

move •■' {r7i* --• ■ ./try nexr Sig-Noise ■ position -V- v 

_bita_l-10_A ■ . . ..f-EMD of iWUMSKRPOSITIONS-i dc .loop ■ 

move- .. r7,y0 • . '■ .-^-.'isave the matched SNR position 

move y:MaxPos.a ;to test if exceeded max position 

crap yO.a ; yl,r3 • :; is counted position greater than max . 

' ; ; start a: index 0 with allocacion 
. jge . • < bita_115_A -.■ ;if not, go. on' to match the index 

move :aI;yC .?set position at. the maximum position 

_bita_:li5_A 

■;find index of the position that best matches the selected SNR position . ; 

■ do- . \\ #NUMXNDEXES, j5ita_130JV/ ;/^. ^^ 

= : move x:(r34n3),a- ■ : . ;get the sub -band indexed position 

cmp yO,a ; compare to selected. position 

,. .-■ jit- '<_^bita_120^A " '. '•; match not found -yet. try next , index 

.; found the- matching index, quit -the loop -. 

er.ddo .-found index, stop tNUMINDEXES loop 

. 3inp <.t>ita_X30_A • . ■ ;go to end of;. loop " . 

_bita_120_A.; 

;try. .the next indiex and continue the "loop ' . • . . 

• move- ' ..'.(rB)* . : ' . ;try positioii at .. next . index ■ 

;';;.see..if'.end.cf -.the- table line reached . 

■■ ^- • = . move x: tr3.*n3) /a- ... . ■ .''/rget this next index to testV; 

vtest for an index of zero . 



tst a 
jne 



<_bita_125_> . • ;if not 0, ilceep looking 



:index. of zero indicates no higher indices .apply, back- up i -'and use that . / 

y.. move .tr3)- ^ v use previous index. \, . 

. ' bset ^ALLOCATE LIMIT, x: (r6*n6; ; set the completely allocated bit . 

bset SHEARING LIMIT, x : ir6*n€ / ..; set the completely allocated bit 

move X: ;r3*n3T.a . , ^ ; assign the last index position 
enddc - - - ;.found index, stop. #NOMINDEXSS loop", 

■■■ • :mp; < j3ita_13C_A -.;:.;go to' end of loop: ■ 

■ bita lis A. -".i' "'^ '^-'V'-.- • . " , 

;~ ■ . .nst ; ■ -keep • looping .. 

SO 
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■JtlZAj-^O^k ::WD cf. tNUMINDEXES dc locp 

. ;set ihe lairial. allccation SubBandlndex and SubBandPosirion 



move 
move 



r3,X: {r5*n5> 



; sec initial axlocatior. SBIndx 
iset. initial ailocacicn. SSPos 



' ;deterT.ine the number of scale -factot, tits allocated ac. this position 



move 
move 
nop 
move 



x: (r2'^n2};n7 
«NSKFBits.r7 



;get the SBits scalefactcr code -O-i) 
;addr SBits scale factor bit count tbl 



X: Ir7*n7; ,yC . , ;save the scale factor. bit count 

.^bita_14C_A 

'';add the bits required, for' the signal data . 



nove 
move 
nop 
move 
add . 

add " 
move 



X: (r4-^n4J ♦n7 
x:ndatabit,r7 ■ '.. 

X : tr74.n7) . a ^ 

yO,a y :<TotBits,xC 

■ xo , a • ■ • 

a,y:<TotBits 



;get the position 

; address of data bit. count by position,' 

;get the bit count at this position . 
;add scale factor bits. . 
; and get cur r TotBits 

.•;update TotBits with bits just allocated 
;save new allocated total bits. 



.-check that' Signal.- no -Noise position that Signal be low .Masking. Threshold 



move 
move 
move - 
add . 

jle 
... bset.. 

bita 160 A 



«SNR.r7 

x: (ri^nlJ ,yO 

X: (.r7+n7; ,a. 

yO/a x:,ir5+n5) .r3 



;addr of Signal -to -Noise table 
;get signal to mask ratio 
;get the Signal-Npise at position. 
;add MNR to SNR for test 
; £t set up to set prev index for its pos 
<_bita_16C_A ; above mask, skip next statement 

^MASKING LIMIT. x: (r6*h€: . ;set Atlimit oartially done allocate 



.;set the value for testing the. best sub-band to deallocate, bits from 
.;if the frame earshot , handle the full required allocation 



move 

move 

nop 

move 

add. ; 

move 



:r3} - 

x: {r3->>n3) .n7 

x: {r7+n7) , a 
yO , a " • ' 
a,x: (rO*nO> 
c bita 200 A 



.-back up one index to get that position 
;get the position at the. previous index 

rget the Signal -Noise at' position 
?calc Sig-to-Noise at prev position . 
; save m SBMNRmaix array for later 
.•continue, with the next sub*band 



■_bita_180_A" *' ' 

.; sub-band is .not zo be . coded at all 



bs.et 
" ■ . bset 

bita 1?: A 



■#A110CAT£ LIMIT, x: :rS*n6'- '.-set AtLimit .totally .out of ■'allocatior; 
liSJEARING.LIMIT.x: {r6*n€i ■ ;set AtLimit at. threaheld. of hearing 
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-93- ..- „..•. " . - •/ ■- 

•;sufa-cana is sei indicate is ai irs masking ■ ^nreshcls. ' 

- bsev #MASKING.L2KIT.x:.(r6*n€V ; set .AtLiRit partially done allocace 

■^bita_,2pC_A • • ; • ..• 

;finished the sub-band set up "for;;the .initial allocation c£ che'ncxt subband. • 



move 
move 
move 
move 
move 
move, 
move 
move 
move 
move 
move 
move 



(r6>* 
(rl)* 

tr3i*R3. 
r3.:R3 . ■" 

y : <ccunt ,r7 

[ri'f * , . 

r7.y:<COURt 



;riext sub- band SBMNRniax 

;next sub-band SBMsr :^ . 

;to position to next Allowed" sb tab xe ;. 

;next sub-band SBits; 

;next sub-band Allowed table array 

;set addr for next suo-band . Allpwes pos 

•next sub-band SBPos , : ■ 

;n€Xt sub-band SBIndx . 

; get current sub -band count 

;next sub-band Atlitr.it 

.•increment the sub -band- counter ' 

; save new sub- band 

.£N0 cf #NUMSUBBAN2S dc.ioop .... 



:■■ "jjita^sso^A. ^ ,' ■ 

. done w^th the initial allocation phase, phase A .. 
. .; Sr thrde^Sllocation. passes. initial state p£ control fxags^ 



. bset <>MASKING PASS.y:<stereo 
bclr #HEARING.PASS>y:<stereo 
bclr • -^FINAL PASS,y:<ster^o. . 



;flag' do ma'sicing passes 
; allocate. index must be > 1 
;KCT. final passes 



;see If frame fits cr do we have to de-allocate selectively 



tr.cve . 
move 

6c 



v:<TotBits,xO 
"y:<AvlBitS,a ■ 
xQ . a . 

<_bita^990_B . 
?»100C,_bita_990_B 



jget the total bits allocated 
..•get available bits 
;Tot3its vs BitsAvailable 

fits., allocate, any leftover t: 



-. of any remaining- bits • • 



jclr ' 
• .;set . 
bset . 

-enddc- 
move , 
jm? 



■«0.y:<qtalloc,_bita^lO B_ -cor-^nue/ i* ' 

itFTMAL PASS,y:<sterec,_bita_-^0_B ,cor.-.nue, * 

ttflNfepWS.Vi^ for FINAL criteria.. 



ina« 



y:<TotBitS,xO 
<_bita_99C_C 



;stop the «10OC. loop and exit 
jget the total bits : allocated 
.out cf time, de- alloc, under last oasis 



■ bital^lO.B 'V . • ^ ' 

"now . let * s .look ^ for quaiifVing: c for ^ext de- allocation 



move 
move 
move 
move 
r.cve 



#SBMNRmax,rO 
. y ;BInxAdd,r5.. 
: ■ ^AtlimitrrS.. 



•addr' of. de- alloc Max signal-noise 
•set register of SubBandlnaex array 
;point to SubBandAtLir.it array 
.•offset tc the channel S5^e»rt^^ax 
';ctts^z tt Chan Sslndx' 
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niove r.C , n6 . . • ■ ■ ' 

move ifC , r2 

move r2,y:<MNRsub 

move *>1 #xl 

move y:<limitsb,yl : 

move . «MNRval.n3 

move .«MNRsbc , n4 . . 



'./Offset to:chan Atlimit ■■. 
;use r2 as a sub-band counter 
;start cnt of de-allocate table entries.- 
to . test for . index of . 1 
;to test for at least one alloc limit ' 
; get address of MNRval table 
;get address of MNRsbc table' 



;,to deallocate the 1 index if the signal starts but below global mask 



move 
move 



#SBMsr.rl ; 
nO,nl 



;addr cf Mask -to- Signal by sub -band 
; offset tc Chan SBMsr 



;loop thru ' the' sub -bands; 

' do ' ■ y :<usedsb,_bita_SO_B : \ '.■ 

;if nc index has been allocated, tr>' the next sub -band 



move 
tst > 
. jeq 



x: (rS^-nS) ,a 
a - ' ■ ■ . 
< bita 70 B 



; check far an allocated index 
; if zero, try the next sub-band 
;nb allocation try next sub-band 



; if -the 3rd mode of. selection, no checks are made 
jset #FINAL_PASS,y:<stereo,_bita_60_B 



;3rd mode, use this one 



•if 2nd mode of selection sxib-bahd may be below the masking threshold, but 
r checks to make sure thjat. if index allocated is ONE and that the 

subrband is not required fcr continity 



jse: 



«HEARING_FASS . y : <sterec . _bi ta_50_B 



;2nd mode num cf index. 



.-must. be 1st mode of selection which requires that the sub -band 
; . be below the masking threshold 



#MASKING^1.IMIT;. x (re^nS : , _bita_7q_B 



; skip: above mask thresr. 



bita 50 B , 



;if .we have allocated only 1 index, skip this sub -band if at least one. 



all o.cat ion i s r equi red . 

cmp ■■ • xl. a " 
.^gt ;• <_bita_6C_3 

move - ■ r2 . a . . ■ •' 

"cmp."-- ■ yl. a " 
3ge ■' <.bita_70_B 
move ■ ■"* «>14.yT-. ■ ■. 
cmp yl.a y :<limitsb.yl 
j.lt . ■ " <.bita_7d_B ; 
move- / ■ xT*.rl*al)7i3. 
tst b 

•ile^ : / ■ < bita 7C* B ' 



;'see- if index- at. '.1 . . 

;nc. this sub-band qualifies ^ 

;get current sub-band 
;aee if sub- band below at least - 1-' - 
•if greater, deallocation candidate ' 
•;if .greater' than 14. check • ' 
;test sb vs 14, restore limitsbtc yl 
; if less than 14. keep the 1 allocaticr. 
.;get Max Signal to MinMask 
;if positive, started below global mask 
; if net positive, keep the I allocation 



j)ita_6oja^ ;■■ .V ■ 

icandi'date qualifies.' , . :■. . ^ • r 

;-. mser: .this candidate", intt tne.tabie ...or. 



de-allocation 
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\" ■ jsr < insert >alue- • : 

.-advance to-'^he next ' sub -band 

• move {r2)* • ■ ; increment the sub-band counter . . ; 

move (rO)-t-. next : sub-band SBMNRmax 

■ move (r5) V ■ . • ' ;.....;next. sub -.band. SB I ndx ■ 

move. . . (r6)* -next -sub- band AtLimit 

bita^ao^. ;/ . ::;end.of .y:<usedsb do loop. ■ ; 

;if there are any entries in. the, de-allocate tables, sta^^ reclaiming bits 

move y : <MNRsub. a ;get the de-allocate table entry cnt 

rsz ' a- ■ Jtest for . zero, no .entries -■ 

• jne : - <_bita_110_B " ' ; are entries at this criteria, : dealloc 

; since there were nc candidates to deallocate (MNRsub « 0), 

) change the selection criteria: * .. .ii^^;.^;^' 

if we've done the final criteria and nothing to de-allocate,. 
• we can do nothing here, exit <How Come???) . . 

if we've not found anything with at least 2 indexes allocated. 
. . : switch to select f rom any sub -bands 

if we've not found anything below the .masking threshold, . . 
■ switch to at least -2 indexes ' alloc • 
1 redo the selection criteria.- 

jset' ttFIMAL PMS.y:<stereo._bita_69 ;??? shouldn't be. exit 

jset SHEARING PASS.y :<StiBreo._bita_100_B 

jset #MASKING"'PASS,y:<stereo._bita_105_B 

bset #MASKING PASS , y : <stereo ■ . . 

; <lbi"-200.B - ■ .;loop thru with this criteria 

_bita_09^ B ;stop the «1000 loop and exit 

- HIT : y:<TotBits,xO : ,v. v ;get the total bits allocated • 



jmp. 



< bit a 990 C 



bita 100 B ■ ■ ■ - ' • ■ 

" bclr . #HEARING_PASS,y:<stereo 

•bset #FINAL PASS.y :<StereO , ■ 

bita 105' 3 -'^ - ' ^ '■' ■ ^ ■: ■'■■■■'■■■■:.■'/.-■.:'■ 

" bclr #KASKING_PASS.y:<stereo 
HcAf . SHEARING PASS,y:<stereo 
■ •" • ■•■ ■•• '..<5ita_2^0_B , . . ■; loop thru with .th« criteria 

fthe.re.are.entrias in. the de-allocate tables . ' .V 

_bita_llO_B ■ 

• ;d^-all3cate from the table frbm . 1st entry to last 
; or .until enough bitfs have been reclaimed 

■ ' t^e - ^:t:y:«ount \"\:.- ^ .• ^ :.' ; start :counter ;thru. the table - 
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Lpcp zhrcugh the crdered .de-aliocaiicn table" 
do . . y : <MNRsiib,_^bita^l9G_B . 



move 
. move 
nop 
move 
move 
move 
move 



«MKRsbc,nO 
yi< count. rO 

X: (rO+nO) , a 
a.y:MNRsb 
•:.rO)- , ■ . ■ 
rO,y : <cpunt 



.-restore the; channeil. arrjay addresses': 

-. move '- ■ #SBMNRmax,rC- 
-."'.move' #SBMsr,'rl 
. move • .• ■ y:B'itsAdid«r2 : 
move y:BPosAdd,r4, .. 
' move y : BInxAdd, r£ .- -" ' ' 
move #AtLimit.rS 



.•address of MNRsbc table ": ■ 
/current table entry index 

•get selected sub-band 
.•store current sub-band (0-31). 
; increment to next table entry 
;save next table entry 



;addr of de-ailoc Max signal-noise. 
;addr of Mask -to- Signal by sub-band 
;set register of SBitai array 
; set 'register of SubBandPosition array 
;sez register of SubBandlndex array 
; point to SubBandAtLimit array 



rset the proper allowed table of indexed position based on the selected sub-band 



. move 
.tst ... 

'j«q - 

move 

. do • . 
... move 

_bita_150_5 
* move 
move 
. • • move 
. move 
- move. 

move 
*- move ■- 
move 
;. move 
move 
move 
move 
■ ' move • 
move, 
'.sub ' 
; ■ • ■ move. . 
' move . 
■ move . 
add.' 



.y:AllwAdd.r3 
a 

< bita 150 B 
■#16,n3". 
a. bita 150 B 
tr3)-n3" 



r3.n3". 

y iMNRsb, no 
" nO.nl' • 

n0.n2 ;. . 
• nO, n4 " ■■ ■■ ■ 
,n0.n5.\ 
■ nO , n6 • . 

x:ndatabit.r7. 

y:cTotBits.a 

x: (r5*nS) ,r3 

x: Ir4*n4) ,n7. 

Cr3i- 

r3.x: (r5*n5^ 
X: »:r7*n7:i .xO. • 
•xO.a 

x: :r3+n3: /n7 
. n7,x: ir4*n4 }.■ • ■ 
x : :r7-».n7; »b 



■ tst ■ . fc . 
. /^ne ■ ■<_bita_160_B 

have ::c take off the scale facte 



;init the current. Allow table' 
;see if it's sub -band zero {from. above) 
; sub- band zero was selected 
;to increment to next sub - band addr. . •- 
; increment to sub -band number chosen. 
.; 16 position entries per sub-band 



;set Allowed addr for sub-band chcscr. 

; get selected sub-band in SBMNRmax 

; sub-band in SBMsr 

; sub-band. :in SBits 

;sub-band in SBPos 

;sub-band.in SBIndx 

; sub-band in AtLimit -"^- 

; address of .daca bit count by position 

;gec current bits allocated 

;gec the current .allocated index ..' 

; get. the ppsition at the old index • 

.;back up one index 

;save new SBIndx for sub -band 

•data bits allocated at that position 

'; subtract old allocated' data bits • 

;get new position . 

;save new SBPos for sub-band 

;data bits allocated at new positioh- 

;add new allocated data bxts . 

,;see if index 1 just de- allocated 
;if not. save the new Tot Bits value ' 



bitsi 



move 
move, 
nop _ 



x: ;r2-n2I .n7. . 
«NSK?Sits.r7 



■;get the SBits scale factor cpdie.'C-*' 
; addr SBits scale fa.ct or .bit.- count, zzl 
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move 
sub- 



X: tr7*n7) ,yO 

yO. a •.'*.■':..■ 



iger tae scale factor. biV ccunz 
;.stibtract" from" Tct3i-s 



'■ -move ^*;y:<TotBits- save the new .tdcal^ ibits ; 

;check. if Signal -to-Noise ipositlon zha£ Si gh'il . above /be low -Masking Threshold 



- bcl: . 
move 
move, 
move 
move . 

- add 

jie . 
bsec . 



.#MASKINGJ.IMrT,x: (r6*n6) ; clear AcLimit below masking threshold 
X: (r4*n4) .n7; . .. . ;ger the position . . ■ 

tSNR.r?. . . • : . :;addr of Signal -to-Noise table ^ 

x:(rl*n*>,yO ..get signal to mask ratio . ' 

x:ir7*n7),,a .. ;get the Signal-Noise at position 

yO,a X:.(r5-n5.)..r3 ; ;add mnr to SNR for test 

ic bira i7n'R ' t "P." Prev. index for its pes 

^iS^cv^lsi - tSt-. ; ' - '-above -masx, skip next statement 
#KASK^Nw_.-IMI . . X : trS-nS } ; set AtLimit below. maskina threshcil 



_bita_170_B 

;check if the bit pool can how handle the frame as" allocated 



move 
move 
cmp 

enddo 
enddo 
jmp 



y;<TctBits,a 
y:<AvlBits,xO 
xO,a . ■ 

<_bita_180_B ' 



<_bita_990_B 



:;get the new total bits- ■ ■ 
■ ;get the available bits • .- 

;BitsAvailable vs TotBits' 

;need more, continue with de-allocation 

fwe' re done here, stop MNRsub loop 
;we' re done here, stop fticoo' loop . 



._bita_^X80_B ' 
:if there is nc index allocated (ry . 



move 
tst 

3«q 



r3,a 

a , :'{r3) r 
<_bita_i85_B 



continue with. the next table entry 

;get newly decremented index allocated" 
;if it is zero, continue ' 
; & back up one index for that position 
; allocated, index equals C, continue 



;set the value for testing the best, sub-band to deallocate hits from 
.;if the frame cannot handle the full •required allocation 



move 

. 'hop ' 
. • move 
-add 
• move 

\^bita^i8S_3. 
■ MP 

■,_bita_190_B,- 
• nop 

\.bita^20C_S. 
.bita^99C s 



■ X: {r3;*n3) ,n7 
x: (r7-^n7) ,a 
a,x.: (rO-MiOJ . 



;get the. position at the. previous index. 

;get the Signal-Noise . at position 
;calc Sig-to-Noise at prev position 
;8ave in SBKNRmax array for later ' '. 

'; continue y.:KNRsub do . loop 
";end of y: MNRsub do loop- 



.continue #1 000 do 16op 
;end 'of do Iscr 



SUBSmXTTE SHEET fRULE 26) 



WO9dO2805 



PCT/US96/04835 



-98- 



se- the allscaiicr. passes miiial stace of control flags 



bsec #MASKING_PASS,y:<scereo 
bclr SHEARING PASS , y : <stereo 
bclr #FINAI, PASS , y : <stereo 



;flag dp masking passes • 
;NCT hearing threshcia passes 
;NOT final passes ■ 



Iterate .on xt . 



;gec rhe ;Mtal bits allocated so far V'.' * 

move--' • '■ y:<TotBits,xO , 
; Now that we have the initial bit allocation. 
. ; ( c ) f or i LoopCoiint ■ . 0 ; ; ♦ +LoopGount / : { 

• •■ da;". ■■" • #icoo'._bita_990_c ; 

';test the bit allocation 't-imout . flag': 

; if : the timer flag was -trip, ■ switch over. to the final bit allocation 
;■■ v.. of .any -remaining bits . 

iclr #C. y :<qtalloc, bita_lO C "■ 

5set - .«riNAL_PASS,y:7stereo,"^bita IC C ' 

bset- ■ «FINAL_PASS.y:<stereo T; . . • 

;this is equivalent to the. call to:the- c subroutine:' . 

•; (c)' AllocateBitsi) • 

;inititial allocation is done, set-up for as needed allocation loop 
restore the left channel array addresses 



:a_lO_C. . 
move 
move 
move 
move 
move 



«SBMsr,rl 
y iBitsAdd, r2 
vrBPosAdd, r4 
y:BInxAdd,r5 
ifAtl.imit,r6 



;siet register of SBMsr array 
■; set. register of SBits .array ■;. ' . 
;set regxster cf SubBandPos it ion array 
.;set register of SubBandlndex array * 
.;point to SubBandAtLimit array ...... 



; ici 



FirstTime - . 1 ; V 7 •start run thru subbands this . time ♦/ 

bset.. «FIRST_TIME.y:<stereo ;FirstTime •« .:o •' ' 
;clear the. n registers for the channel reference • . 



clr 

move 

move 

move 

move 

move 

move 

move 

move 



al,y:<count 

y:AllwAdd,rC 

#SMR,r3 

a,nl" 
a , n2 . ' • 
a,n4- V 
a,n5; 
a, n6 



; start the sub-band counter 



.SBMsr array 
;SBits array 
;SBPos array 
;SBIndx array 
•;AtLimit .array- 



;go through ail. used sub -bands looking at only those' 
' ; that have not reached the. allocation limit.-: 



3C 



• y : <usedsb.. _bit'a_13C_C • 
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;see if chis sub-band'.s ' lireiz- flag was/ set previous iy. and skip." if it" has.; ' ;:. 

.jset' «AlXbCATE_LIMIT,xv(r€*n€),_;bita_i00_.C ■;'skip.. subbr.i reached' 1 it.— 
•j set . .#FINAL_PASS..y: <sterec',_faita_40_C" :;pass /skips below mask Vehicle ■ . 
.V', ; jser * ■':#MASKING_LIM:t.x: (x6*no:^._bita^l reached linvi: 



move 



;see 



x: (r4-»^n4) ,a ;get curr position ISubBand] 

his sub-band has reached its .limit already , 



move 

cmp ■• 
ieq 



y :MaxP6s,yO 
vC.a . al,n3 
'< b'^za 80 C • 



isiet max value 

;see if max position; move pos to n3. . 
.•reached its allocation -limit ; set flag.. 



r»eck ithis sub-band out 



see i 



; sue -Dana out . . ' , . . ^ 

here , is room to handle the next allocation for this suo-oand 



Vinit added scale factor bits 
; & to ihcr to next allowed" bits size.- 
;SubBandlndex (SubBandj 



V cir b • . " ■ #>i,yi\; V.. 

move-. • ■x:.(r5*n5)..a : 
;if this will be the 1st index, we must account for the scale factor bits 
■: tst • a l*NSKFBits,r7 
. ■ 3ne «_bita_50_C 
;set the scale factor sbits needed for.this 1st index in this sub- band 
^move , x: <r2+n2) .n7\-, . \ ■;get SBIts index. •. 
move : ' x: (r7*n7) .b ;num bits for scaling info - 



;see if -O 

; & set addr of NSKFBits array 
J not 1st index, skip add scale bits 



^bita_3C_: 



add 

: move 



yl,a 
al . nO 



x;ndatabit.r7. 



• ;incrr- get addr of NDataBIts 
;set offset for Allowed next index 



;see if next allocratipn. is passed the max for this sub -band as per Allowed table 



nop. - 
move 

'■• tst 



x:.lrO>nb) .a 



■..jeqV".-- <_bita_8C_C ■. . 
-;test -the- allocation at: this hew positio 

-move - X; (r7*n7; ,yl ■ .. 
■•- .add.\" yl.b . n2-.n7- 

-.'move:/ ■ bl.,yl • :*• 
"move xO.b 
" • - move -. x: (r7*h7) ,yO 

.sub '.• y:-.b a'l, xl." 



;getthe NextPosition as the new pps 
..•see if passed the maximum position 
; & move new pos to n7 

;reached, its allocation limit, set flag 



;get NDataBits (NextSBPosj: 
;add to any scaling info bits 
; & set offset SubBandPos [SubBancI • 
;bits to add for next index ■ " 
;b-«>TestBits - OldTotBits' 
;get NDataBitslSBPoslSubBand^- 
.'TestBits'-.-*' current bits 
; & put new position in proper res 
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;{C) 
; (c) 

■ : (ci 



;■; ' • .-100- ^ 

yl.c y: <AvlBics,a ; TestBiLS. -« next allocacisr, fcits* 

■■• ;■• • t gets. BiisAvaiiable 

if TestBics-.> BitsAvailable i;{ . . 
■ ■ AtLimit « 1 ; 
•• continue;- 



cmp . 
•jit 



) 



b,a b,y:TotBits 
< bita 80 C .; . •■ 



;see" if -room' save .ailbcacicr. . 

; no room, set as At Limit arid continue 



; if this is- the .finaZ loop; skip, the ' next., test and allocate the bits 

jset ■ #FINAL_PASS,y:<stereo,_bita_7C_C . ;pa8S skips below mask chieck 



; {c; 
; (CJ 
; to 



SMR » SubBandMaxCSubBand] 

- MinMaskingDb [SubBand] 
MNR » SNR [SubBandPosition [SubBand] ] - SMR 



move 


x:.(r3*n3) ,yl 


move 


X: (rl^nl) , a • 


.add 


yl,a y:KNRmin,b 


. 


<_bita^'9.0^C . 


move 


a,yl 


jset 


. ttFIRST TIME,y:<stereo, 


cmp 


yl.b " . 


-jle ■; 


<_bita_100_C. 


._bita_6C_C 




. move 


nO , y ;MNRinx 


. • move 


xl , y :MNRpos 


move 


y : <TotBits,Xl 


. . move 


xl,y:<KldBits 


move 


y recount ,xl 


.■ move. 


Xl.yrMNRsb 


move 


yl.y:MNRmin 


. bclr - 


#rIRS7 TIME.y:<stereo 


• j rap . 


< bita^lOO C 



;9et SNKlSubBandPos iSubBand} j 

; SBMsr [SubBand] Mask-to-Signai 

;add Sig-Noise ratio; . 

; & get MNRmin for below 

; below Masking, go to take out partially 

.;save MNR ■ . 

5ita_60_C ;if first,, save as -minimum * 
;MKRmin - MNR 



;MNRinx • Newlndex; 

;MNRpos ■ NewPosition; 

;get the allocation of bits . 

;save the allocation of bits 

;get current sub-band 

; MNRsb « SubBand ,- . 

; MNRmin • MNR; 

; clear FirstTime flag 



; we are on the final allocations passes after all sub -bands 
are driven below the Global Masking threshold 



_bita_70_C. 
■ .~ move 
move 
move 
...bclr 
. , . jmp 

_bita_3C_C . 
" *" bset 
bset . 

,bita_56_C'. • 
" " bset 



y:<TotBits,xa 

nO.xr.lrS^nS) • 

xl »x: Ir4*n4 } 

#?:RS7 TIME.y:<stereo 

<_bita3lOO_C 



; save new TotBits ■ ' 
; save new sub- band index 
.;save new allocation position 
j.clear FirstTime flag 



#AU*OCATE LIMIT, x: (r6^n6!. 
#HEAR1NC LIMIT. X: lr6*n6S 



;set the completely allocated bit 
;set the completely allocated bit 



#MASKING LIMIT, x: irS+ner ; set the reached global masking bi: 



:it& 
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. move 
move 
move . 
move 
. move 
move ; 
■ *• move ' 
move 
.move' 
move 

biza 13C C 



y : <ccunz ,r7 
#16, no ■ 
(rl.i- ■ 

(rS)* 
(rO)*nO 
.r7, y : <count 



;g.ec current sub- band. 10 increment . 
; now update Allbwed ts next sue band 
;SBMsr -.array *, .. ■ ■ 
>';SBits. array 
SBPos array •'• ■. 
\ :;SBIndx .array 
; AtLimit •■ array ■' 

..-advance Allowed to next s\ib* band 
.-Increment the sub -band counter 
;save new sub-band number 



; At this point the fcllowing registers, are in use . . ■ 

y:AvlBits « # cf bits' available " . ■ ■■ 
.;■ • ytMNRsb - MNRsb 

. . y : MNRMir.. » MNRmin . • . 

;We test now to see if this trip thru the loop produced any changes 
; and if not, we have finished. the bit allocation for this frame. 



ic) 



if {. FirstTime ) . 

return; 



j.clr #FIRST_tlME.y:<stereo._bita_l40_C ;not Isc. alloc to selected 
jcir #FINAL"PASS.y:<stereo,*bita*1602c ;not f inai, . set 1 more loop 



/finished, end the lbop^and go to exit routine 

< bita 990 C " 



enddo 



Jbita_14C_C • .. . 

; test, flag all candidates are below masking threshold 

. '.jse't; -.. «FINAL_PASS,y:<sterec._bita_l70_C if final, allocated air ea.dy' 
; restore' the channel array addresses ;; ' 



move : 
move 



y :BP05Add/r4 
y:BInxAdd,r5 



rset register of SubBandPosition array 
;set register of SubBandlndex array 



SubBandlndex [MNRsb] ; 

SubBandPosition [MNRsb] • AllowedPositions [MNRsb] [SubBandlndex [MNRsbj ] 



move . y : MNRsb , nS. . 

move n5 ,n4 . 

move y:MNRinx.xl. 

move xl.x: (r5*n5) 

move . y : MNRpos , xl 

move . xl,x: (r4'^n4) 

move • y ;<HldBits,xO 

jmp . . c^bita^l^o^C ■ 



■ :;MNRsb' . 
;;MNRsb-- ■ . 
; get the saved new index 
- update the SBIndx for selected sub-band 
;cet the saved new Allowed position 
; update the SBPos for selected sub-band 
.;set the new b it-al location total .cht. - 
/continue major, loop 



now lets just allocate what ' s. left now that all are below mask 
:• #r:NAl_PASS/y-:<stereo just . loop now ' ■ - 



bita 160 C 
bset 
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" • ' : * nop , * . ' ' ■ ■., - W. 

_bita_990_C. ... ' ■ 

move . xO,y:<TotBits ..;save bits actually allocated 

move y:<AvlBits,b. . . ; determine number of bits padded 

/ sub . xO.b " ;bits available minus total allocated 

move bl,y:padbits. ;saye count of unallocated audio bits 

.■;* res ■ • ■ ^ 

insert _va 1 ue ; ).: •*;'.• 
• ' * . * ■ ■ .* ' • ■ 

.;This routine orders the table of values per sub-band . 
; that are to.be de- allocated as needed. The table is ordered in 
.-descending sequence that makes the 1st entry the one that- can best 
;afford a deallocation. ■ 

;on entry:" .• • ••■ 

. xiCrO^nO) -the current value to be inserted \ 
r2 - the sub-band number to be inserted 
y:MNRsub « current count; of entries ^ in the ordered deallocation tables 
n3 e address of MNRval table 
; n4 > address of . KNRsbc table 

; on ..exit:- • 

y:MNRsub « incremented count of . entrieis^ in ordered, deallocation tables 

; ". • . • a:« destroyed" . 

'"b « "destroyed ' 
;■ ■■ ' -.xb. ■ destroyed 
; ■ ■ , yO » destroyed ■ • 
;■ ' " r3 -■■ destroyed 
; ■ r4 - destroyed. ■. 

"org ■-. phe: -* 

insert^alue 

;get the current, value to be inserted and set upo the start into 

; the ordered . table of values and the assoicated table of svib-band 

• move.' x: (rO+nO) ,a-. ■ 't-get the current, value to insert- .." 

move . ..y:<MNRsub,b - . ;get . current count of table entries. . 

.;if this is the 1st value "to be inserted ino the table, skip the . 
search for its. place and enter this as table entry no. 1 . 

tst. b . ". " #0,r.3. ■ ;see if this is 1st entry into table 

; ; & set to 1st entry in MNRval table, 
jeq <_insert_50 ;if 1st ...skip following table search 

:;search through the table of entries so far established looking for. where ^ ■ 
■;to store .this current value • '-r 

.dc y :<MNRsub,_insert_20:- 
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move X: :r3*n3.:.x9 



< inserc IC 



;get the table value fcr conicariscr. 
;againsc the new value zc be' inserted 
>if less., value . is .£urther dowr. table 



;when the new value is greater than cr. equal tc the table entr>"i " 
; this IS Its place in the table, we. may have to shift the foIiowLng 
• -.table entries in order to enter this new value. • 



. enddo : ■' 

jmp . <_insert^20 



^insert^lO 

. "move 

insert 20- 



(r3 



.'Stop the y:MNRsub do loop '. 
;see if.the table must be shifted 



-.;try the next . table' entry. 
;end of y:KNR5\ib do loop 



Lf this entry number ^ '.its" place in. the" table) equals .the count 
this. -entry will be the hew. LAST entry m the table 



entries; 



move 

cmp ■ 

jgt 

move 

.^mp 



r3 .xD 

x:,b ■ 
<_insert_25' 
<"insert250 " 
•bl.rj 

'< insert 50 



.-get its place in the table to compare 
•;its place tc current table entry count 
;if less, we have to shift the table 
;if eq> entry is appended to the table 
.;?? let's make sure we use last entry 



insert 25. 



.;we need to shift the subsequent entries in the table down one and then ^ 
■; insert, this new sub-band value'.'. 



move 
move 
move 
move 
move 
sub 



move 
move 
move 
move 
move 
move' 



bl.r3 
b:,r4 
vr3 ) '♦■n3 
;r4) ♦n4 
(r3)- 
xO,b 



tr4) 



b,^insert_40 

X: ir3) *,yO 
yO;x: Jr3i- 
x: (r4}*,y0 . 
yO.x: :r4) - 
(r3)- .- 
■(r4l.-- . 



.•establish the curr table ends 
;for both MNRval and MKRsbc . - 
jfset r3 with addr of MNRval end 1 
; set r4 with addr , cf MKRsbc end * 1 
;back cf f 1 to get last MNRval entry 
; number cf table entries tc shift 
; k back off i to get last MNRsoc entr-v- 
.'-shift -each down 1 position in tables 

;get. curr value and mcr, tc rec addr 
; put value i €ntr>' down & back up 1 
7Curr sub-band/chan t incr tc rec addr 
;put value 1 entry down: & back up 1 ' 
;back up one more entry table.MKRval . 
.;back up one more entry table ' MNRsbc 



■ insert 40. - ■ .;- end cf . b do loop 

■; restore entry location tc -receive. value and sub-band 
• move '"- -..xCrS , ■ " ' ' / ■ 

_insert_;SC. ; \: ■. ? ; ''-^i r ■ ; . ■ \ ' ' . y^- . 

•'.•insert the. current value at -this location in the" ordered table. 
• ; alst insert the sub-band number 



movs 



;ma: 



:hing position in the MNRsbc table 
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move, 
inove 



a.x: (r3*n3)- . 
r2.x: (r4<i>n4) 
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; enter sorted Value ... 
; en t e r t he sub • band numbe r 



;increment the count of entries in the ordered deallocation tables 
y : <MNRsub, r3 



move 
nop 
move 
move 

rts 



(r3) + 

r3 ,y:<MNRsub 



; we need to increment entry counter. 
; save the new: table eiitry count ;. 
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' . ■ ^ .105- 

.;' (c) 1995^ Copyright Corporate Computer Systems. Inc. All rights reserved. 
. r.\DGCS7\bot5allo.aain- ■ 

■'. "title;/- 'Initialize bit. output' 
; Thi^ routine is used to -initialize - the bit output, routines = 

' include-. 'def. asm* ' " 
include, 'box^ctl .asm* . 

section' lovmiisc ' 
" xdef . •• -sccurwd 



org • ■ . . yli 
'stbitsalld^yli' 



• sc. 
curwd 



ds 
ds 



; shift. count • . 
; current . word 



endbitsallo^yli 
endsec- 

"org 



phe : 



;^*^^^This subroutine determines . the number of bits available based 
; on the output .bit. rate and the ; type ct framing . 

* 

[•The table below is based. on a Sampling Rate at 48,000 /sec and shows . 
•the breakdown. of bit counts based on bit rate o/p and choice of frame type 
' . .p,,ii .< Joint Stereo 



;kb 
; rate 

;384 V 
. ;25€ , 
.192 
;128 
;112: 
; 96 
; €4 
56 



frame 
bits 

9216 

€144^ 

4608 

3072 

2688 

2304 

:536 

1344 



Mono 

fix avail 

136 9080 
. 6008 
4472 
2936 
. 2552 
2168 
1400 
1208 



Full. 
Stereo 
fix avail 



4 - bound 



:ix aval 



Joint Stereo ---- 
8 -bound 12 -bound. 



136 



224 8992 152: 9064 

. . 5920 . 5992 

4384 4456 

. 2848 . 2920 

. . 2464 2536 

2080; . . 2152. 

. 1312 ^ 1384 

224 1120 152 1192 



fix avail 

168 9048 
5976 



fix avai 
183 



168 



4440 . 
2904 . 
2520 
2136 
1368 

1176 183 



9033 
5961 
4425 
2889 
2505 
2121 
1353 
1161 



........> 

. 16 -bound 
fix avail 

195 9021 
. . 5945 
4413 
. . 2877 
2493 
2109 
"l^^l 
1149 



■♦•♦•♦♦♦**••■•♦♦♦♦♦♦♦ • ♦ ♦ • • * ■/ 



y : .stereo - . inaicacing , applicablacion of -CRC-IS pretecVisp.- 

■ ••■ . 0 -.NOT AP?LICABI£ ' 

1- CRiC-16 proteccion APPLIES 

yfrmbics the total numbar of. bits -'in a Srama'at tha.ap^cifiedv.. 
bit rata.' . .. - 



■°":**"o de»troy«d - returned' number, of required, (fixed) bits 

•:. .xi destroyed returned number ..of .bits available for cita-iocatisr. 
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a desiroyed 
rC destroyed 
rl destroyed 
r3 destroyed 
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org 



phe : 



fcitpbol 



.•Select the proper , Allowed table: 

ISO:, : 

.1. for low sampling rates. (24 or 16 K). ; 

. set ISO Extention .Allowed table , iAllowed_3) 
2. for high sampling rates J48, .44 . l or 32 K).i " " 
' . a. based oh MAXSUBBANDS : less than 27 ^ 

set ISO. lower, bit rate Allowed table tAllowed_2) 

b: ".else. 

■'. set*. ISO .higher bit. rate Allowed, table" (Allowed i:-" - 



CCS: 



set :sb higher bit rate Allowed table CAllowed^l} 



; low. sampling rate • . 

; test the. frame header ZD bit (if 0^ it's a tew. sampling rate frame) 



move . 
• nop 
jset 

move 
move 
move 
jmp 



#sTi^lidbit,rO . 

#c;y: irO) ,_bitp_0OO_A 

#Allowed 3,rO. . 

«skftbl_I,rl .. •. ■ 

#>15.xl 

.< bitp CIO A 



; addr of frame header ID bit (0 « low> 

V , . (1 - high) 

.;if high rate, select Allowed table 

;addr of low sampling allowed cable . ■■ 
; addr of the HAL bits, table 
rmaximum position Allowed_3 table 
;go to store Allowed table address. 



_bitp_000_A . 
■;hiah sampling rate:. 

; set the proper Allowed table address based on work2.ng MAXSUBBAKDS (y:<maxubs.; 
; . if less. than 27; used table 2 ' 



move 
move 
move 
move 
cmc . 



y : <maxsubs,xO. 

#>27,a 

#>17,xl 

♦skftbl l.rl . 

xO.a "#All6wed l.rO 



jle. "'. ' <j5itp^010^ 
••select the lower bit rate Allowed table 



;get current MAXSUBBANDS 

;to see which of 2 tables applies . 

;maxitRum position Allowed^l table \ 

;addr of the BAL bits. table - 

;see if need the low bit rate table 

; & .set up as Allowed^l table 

;Allowed_l table applies . . - . ' 



move 
move 
move 



♦Allowed 2,r0^ 
«skftbl 2.rl 
S>16,Xl"' • 



;addf of the BAL bits table 
.-maximum, position Allowed_2 table 



_bitp_:iO_A- 



;set the address of the selected Allowed table. 
; set the address cf the selected. BAL* s bit table 
.-set' the naximur.- position code ■ 
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■.:move.- r:.y:A:iwAdd ■ ^ ' r : ; ■ • V . ' J- / - " 

move •■■ .r 1.x: slcfrbl . 
•.move xl.yiMaxPos- 

;deterraine the biz s required fcr ancillary data (taken from audio pir pool; : 
;. scan with bits required to. store the pkdded data byte count in frame . . 

• move' #>BITSFORPADDING,b ■ ; bits in the padded byte co'ont ■ 

..move . y:maxbytes,yl V .. ;get max bytes at baud rate 

move y:<bytecnt,a .;get current count, of bytes received 

cmp yl.a .#>BITSPERBYTE,xl " ' ;see max versus current count 

; & set. multiplier 

■ige < bitp 00 ;if mere than max. can only . send max 

..... move aTyl . - ; less than max. send all received. 

_bitp_0.0. • ■■' -'^^ \.. 

; multiply .the bytecount for. bits .per. .byte. 

'mpy' -'xliyl^a' ;.\-to' get the required bit" 

asr a . yl »y : <bytesf rm. ;shift integer result 

■;. & set byte count for framing . 

•move' ..'aO.a- 

add a,b . ; add to the count of bytes . 

= . move ;. • b,y:ancbits ■'. ;sec ancillary data bit " count- 

;set the number of fixed bits used, :and the number, of available bits for audio 

. ■ a . #0,xl ;0 a as accum, zero CRC checksum bit cr.t 

'.•set the address and bit offsets to identify the. end of .the. current full frame 
; and set, the end cf . the formatted frame 

• ■ "move ■■■ y:<f rmnext ,rl •: address' for start the next frame 

.move • .y:<outsi2e.mi '.-circular ctl addr the framing • o;p buf- 

;set the fixed cits for the audio frame 

. move • «>NSYNC.xO ;numb€r of SYNC bits . 

* add xO,a «>NSYST.xO ;plus number of bits in frame system hdr 

: add xO,a . x:skftbl,rO ;gct base of used bits, table . 

-'clf ttPRCr2CT,y;<stereo; bitp_35 ;skip checksum bits if no protect 
move 

_bitp_35 



lt>NCRCBITS.xl . . Tadd applicable, bits for the checksum 



add ;xr,a . ;add checksum protection. ' if .any- . 

• account for "the .bits required for protection encoding - 

• move '' #>RE2D SOLOMON_BITS. xl • ;bits required for Kadir's routine 

• add " xl.a ~ ".' protection bits to fixed bit - 

^accumraulate the bit allocation bits for standard number of siib-bands 
;.- included in. the frame for the left- and right (if applicable)..: •. 

.do-. ■. .• y:<maxsubs,_bitF_50; - • • . 
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".. move ■ 
add . 


X: (rc: ♦.xi; .-. ■ 
xl-,a ■ ■ 




.move 

■■• move " • 


. a . xO ■-.*•■. ■■ 
y : f rmbitSfb • 


■•;r€tum fixed bits 

• .-total size. of ■ frame' ir. 'bitsf. ' 


.•subtract any b 


its required for 


ancillary data. 


move ■ 

isub' . . 


y raricbits.yX 
yl . b - 




bicp_80- ■•. 
; . . sub 
move 


■ a,b 
, b.xl. 


■ "• .;total bits - fixed bits 
.. .;return number of audic data bits avail 


■ ;now determine 


woro aziu- 


sore * rh^ end ci* th.<i aud*'* -^'^aiTie 


• add - ' 
move ■ •: 


yl,b ' ^ 

a.b . <»>24 .yl 
y :<£rmstrt , rl: . 


.•restore bits for, ancillary • data .. 
restore to full .audic frame size 
. ;" & set number bits in a word 
'!;count. words to last word in frame . , . 


_bi;p_50 

cmp 

-.sub 
. jmp 


■ yr.b - '. • . 
< bitp_lOO . . 
yl.b " (rlfV 
<_bitp_90 


.;see -if reached last, word - • 
.;if so; set eof rame ..word & bit offsets. 


_birp_100 ■■■■ 
" . move 
.■ . ' move • 
' ■ ■ . • move ' 


r 1 , y : audendw 
■b»y: audendb 
y :<linear,ml 


■ . .;tc identify end cf audio part of frame 
• ;bit offset end of audio part cf frame 
. ;reset- to linear buffer control . 


TZS 







. ;pitsal.o^ subroutine starts thie bit allocation of values into the • • 
; ■ frame buffer values are. inserted by setvalueC ; and by. oit free 

.:."onexit ^• 
. • • • v • <sc - » 0 ■ '• ■■ • ' 

'1; y^ccurwd « initialized (Oi; 1st word" in frame buffer 

... • ■ a « destroyed. 

bits.aiis' • "-• ' . 'vvV- :i ■ • • 

■ •■ move ■ • JV<sc " ^' * ' : initialize, the shift count ' -.^ - ' ^ 

■ move .a;?;<lurwd^ V / " ; ;initiali2e curwd (ist b 

; page ' ' < - '■ ■ " - ^ : 

routine flushes the last bits to* the output .buffer \ : . 



cn entry 

• . r; « address cf 



next word the cutout frame buffer -x ner.cry . 
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; or. exit : 

a --descroced 
; . b • destroyed - 

; xO • destroyed 

xl • destroyed 
'; • . yO • destroyed 
;. • ' ' yl destroyed; 

section highmisc 
xdef audendw 
-. • ' xdef . audendb. ■ 

org . • -..y^-e: ;■ 
stiitsallc^yhe ■ ' • 

audendw cs : l 
audendb ds ;. - . ' 

encbitsailo^yhe 
endsec " 



; address of end of audio. pcrticncf. irame 
■;bit offset to. end of audio portion of trame : 



.bitsfree. 

; see if all of the frame has been output totally 



move 
move 
. cmp 



y : <f rmnext .xl 
r6,b 

xl,b «>24,a 



'■ jeq .. ■ <«f3^«*.50 
;see .if the last word of the; frame is to . be output next 



;get address for start of next frame 
;next o/p address of current frame 
;if addresses * start, done 
; and set up. for the next test . 
.•frame done, exit 



move y : <f rmlast.xl 
cmp • xl.b . y:<sc.xO 



;last word address of current frame 
;test if address • last wcrd ■ 
• and get number of bits in last %*crd. 
Deq ' c_free_20 ^liast word/ chk. block sec number rieeae= 

;cutput last partially formatted data Word befor«^ zero fill remainder cf frame 



sub 

cmp. 
jeq 

move, 
rep 

Isl." 

move 
move 



xO^a #:i24,x0 
X0,a «0,X0 
.<_free_05: 

y : ccurwd.b^ . " 



bl,x: CrS) 
xC,y:<sc 



_free_05 



clr 



;.get number of bits left 

;24 - number of bits left 

;not partially formatted ;.y:sc 

;get current output word 
.•output the. necessary # of bits . 



.-save in the output 

.•zero the current, bit offset 



.•output zero, for remainder cf frame 



^free^io" 

:-;see if the -last " word of the frame is to be . output next . v ; 
../■.■/•■: Tr=ve ■ "^'re^b..^'' ■ ; ^; =■ ■ • ;next; o/p address" of 
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cmp ' 
jeq ' 
move 



free 20 



move 

move 

move 

move 

sub.. 

sue 

zsz , 

. 

move 



xl.b ■■. 
< freev20 , 
al.x: tr6)* 
<.f ree.lO 



«0,yO . 
«o;x6 

l>>24.a : 

y:<SC.yl 

. xo.a • ■ 
-a 

<_f r€€_90 
a.n4 

<6ecvalue 



;see if las^ word next 
.-last word, chx block seq nuMer needed 
•output frame word and mcrment addr • 
1 continue to flush the buffer . 



'initwith xeros to.pad last word 
■';init with no bits, req for seq nuinbe?. 

!-bits in the word. • ' 

;get current format tea word, of -.set 
. fbits remaining. 

';bits required for block seq num. 

Itest- if any zero bits to output . 

;.if none,, try the block, seq hum 

;number of bits to output . _ 
. ;pad word with zeroes as needed . 



• free 90 • 
• rts 
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; • bpc . ■ tc, mex " . ^. . 

.:c> 1995. Copyright Corporate Computer Systems, Inc. All rights reserved. 
\0GCST\3cmicrmus:asm: Reed Solomon version for . DigiCast . 

; • ■ title- ■ ' 'Micro ■ MUSICAM . Transitter Main • ' • 
.. ;7/23/92) xmicro.asm micro MONO version of XPSYCHO and XCODE combined 

; -include' 'def. asm'- • 
• include ' . . \common\ioequ.asm' : 
^- include. 'box ctl. asm' - 



section 


lowmisc 


xdef ••• ■ 


w A 0w 1 ^ * 

wOra Ou^ • 


xdef : 


word^in 


: xdef ■ ■ 


startyli 


xaer 




xdef 


maxsubs 


xdef . 


oldccs 


xoei 




xdef 


stereo . 


xoer 


wTnjp £^ 3 W W X 


- xdef 


oprptr. 


xdet 




xdef . 


■outsize ■ 


xdef - ■ 


frmstrt.' 


■ xdef- .■ 


frmnext . . 


• xdef - ■ 


f rmlast 


xdef 


timer 


xdef 


timeout 


xdef 


qt alloc 


xdef ■ •■• 


ipwptr 


xdef 


. polyst 


xdef - 


nmskf reqs 


xdef 


. maxcritbnds 


xdef 


linear 


xdef 


juxxlc 


xdef 


endyli . 


xdef 


dbgcnt 


xdef 


limit sb 


' org' ■ 


\yiir';-- 


stxmicro^li 




word_out • 


ds 1 


.\word_in 


. ds, : ; !• 


srartyli 




not_appl 


-ds:. ■ ^-i; 


'.maxsubs .:- ds 


• '1 ''■■■".*■ 


oldccs ds 


■ 1 



•applicable hardware output {leds, switches) 
•applicable hardware input (switches, lines) 



; sat isfynpn- applicable hardware settings 

•working MAXSUBBANDS for sample/bit rate. • 
•encode MPEG- ISO. or old CCS CDQlCOO'.s . 
; • .-0 • MPEG- ISO... 



SUBSTITUTE SHEET (RULE 26V 



wo 96/32805 



PCni}S96AM83S 



• - - " ••.112. . ; ■ . v:--.":- ■ 

■ ■■ 1- -'-old CCS .CDQiooo's . 

usedsb ds 1..: .-number of used sub-bands 

stereo- ds. '•• 1 ; ;■ " . " ■" • ■ ;y:<scereo » flags:; 

;bic 0 means stereo vs mono framino : 
■ • ^/ ' ;■ 0*« -stereo framing' 

. ' ■ ; : 1 ■ mono framing . • 

?bit 1. indicates left vs right channel 
; 0 » looping thru left channel arrays ■-. ■■ 
;• 1 • looping thru right channel arrays' 

■ ■•■ ;bit 2 indicates joint stereo applies' 
■..:.'■*•.■; ..0' • NOT joint stereo framing type 

; 1 « IS joint stereo framing type 
■ . ;bit 3 indicates curr frame .upgraded to 
■ ; full stereo by joint bit allocation ■ 

• ..• . (if joint stereo applies) 

. ; 0 = normal joint stereo allocation 
'...■■*•■ :\ ' : 1 « FULL STEREO allocation 

" ■ '/bit 4 indicates the stereo intensity " 
■ .:• . ; sub- band boundary has been reached 
; at .joint stereo applies) • 

0 « NO sub-bands, still below 
; ■ . ■ ■■ intensity- boundary ' 
... ■ sxib-bands above intensity . 

boundary- 

;bit S is FirstTime. switch in a loop 
;■ thru "the bit allocation 

■ . ;, 0 -cleared if any allocations/ 
. ■ * ; . ■ • were made . 

- ; 1 « no allocations made: to any 
■•■ . ; ■ . ■ ' sub-band . ■ ■ 

;bit 6 indicates a below masking 
; ■ threshold allocation pass 
. ; 0 « some sub -bands not below mask 
; ; 1 » all sub-bands are below mask 
• • / ;bit 7 indicates a below hearing 

• threshold allocation pass 

C « some sub- bands not below hearing 
threshold 

■ ; 1 • all sub-bands are below hearing 

" "-threshold.- 
;bit 8 indicates final bit- allocation 
passes to use up' any available bits 
0 • not yet 
/ . ; I • allocate remainder in bit pool . 

.;bit 9 indicates limit of sub-bands requiring 
; at least one position has been reached: 

■ ■; 0 - not yet.'' 1 ■ limit reached 

. •■ .. ■.;bit - 10 indicates maximum limit of .sub -bands ' 
; .that , are to be allocated has been reached:. \ 
' 0 - not yet, 1 • limit reached " 

cmprsctl •• . ' . ds ■' i.' ..••-.'•*' ...-control flag for CCS compression': 

- .bit 0 » application: 
■ ■ .0 • ISO standard 
: ; 'l - CCS compression applies 
oprptr . ds 1 .-read pointer into output frame buffer .. 

outmus ds 1' . .; number of words to read in . 

outsize, ds 1 • / /circular buffer ctl" frame o/p buffer ". " 

frmstrt ds ' • ' 1. . . .-starting addr of current ■ frame 

frmnext ds .-. .l^v'.' .-starting addr of next frame " " 



SUBSTrrUTE SHEET (RULE 26) ; ^g^'gwaWW ''^ 



wo 96/32805 



PCT/US96/0483S 



f rmlast ds 
cimer ds 
titneouc ds 
qtalloc ds 

ipwptr ds 
polys c ds 
nmskf reqs 
maxcricbnds 
linear ds 



jun)c 
endyli 



ds 



dbgcnt . dc 
limitsb dc 

endxmicro_yli" 

*. ■ .endsec 



1* ■ 
1' 

I 
1 

ds 
ds 
1 



;last word addr of current frame 
;0.024/C.03S msec timer incerrupc senscr 
.;0, 024/0.036 msec timer interrupt exception 
;0. 024/0. 036, msec timer interrupt bit alloc. 
; signal bit allocator to finish up . .. 
; write pointer into input inpcra buffer 
;addr of the poiyanalysis start 
;NMSKFREOS based on selected sample rate : 
;MAXCRITBMDS based cn selected sample rate 
;reset mX as linear buffer control 



i! debug 



; ! • idebug counter of flag . 
. ;LIMI7SUBBANDS ; sub -bands req at least 1 allocation 



■ section .ptable . '; \ ■ • ' 

xdef ■ ptable 

•xdef • • ajpsych.b^psych .•■ 

xdef cjsych.d_psych ■ ■ ^ " 

:. xdef e_psych,f^sych.g_psych ..- 

xdef h_psych.i_psych,3J>sych ^ ; - . " . •■ . . 

xdef k psych, 1 psych, mj)sych.n^sych,oj>sych,pjsych . • • 

. ' xdef qjpsych,r^sych,sjsych. t jsych,uj>sych,vjsych;wjpsych,x.psy^ 

xdef y psych ;z psych ■ ^" 

xdef 2ilpsych,l2^sych,23jsych.z4jpsych>z5j>sych.26^^ 

^ org yli: 
•stptable^yii- 

ptable . ■ ' ■ ' ^ - ■ ' 

• ;this' table is Icnovm as IRT 



a^psych 
b^psych 
c jsych 
d^psych . 

^«^5ych-.' 

. f jpsych 
g jsych 
h_psych. 
i jsych 
j_psych 
k^psych 
1 Jpsych 
m^sych 
n^psych 
o^psych 
Pjsych 
qjsych 
r jsych 
s_psych 



dc 


0. 


0467146 


dc 


0. 


0496269 


dc 


0. 


0259526 


dc 


0. 


0496289 


dc 


0. 


0882387 


dc 


0 


4000000 


dc 


.0 


0311431 


dc 


0 


0882387. 


dc 


0 


0882367 


dc 


0 


.1000000 


dc. 


0 


,0000000 


dc 


0 


iooooobo 


dc 


0 


.0000000 


dc 


0.0000000 


dc 


0 


.0000000 


dc 


0 


.0000000 


dc 


0.0000000 


dc. 


0 


.0000000; 


dc 


.0 


.oooooco 



';B 
;C 
;D 
;E 
;F 
;G 
;H 

; J 
;K 
;1- 

?M 
;N 
;0 
;P 
;Q 
;R 
;S 



curval« 
curval- 
curval- 
curval* 
curval- 
curval« 
curval* 
curval- 
curval- 
curvai* 
curval" 
curval* 
curval« 



9 dB 

.3 dB/Bark 
S dB 

.3 dB/Bark 
17 dB/Bark 
.4 1/Bark 
.6 dB/Bark 
17 dB/Bark 
17 dB/Bark 
.1 1/Bark 
0.0000000 
0.0000000 . 
0.0000000 



CCS compression • NO < 13 
curval* 0.0000000 
curval" 0. OOOOOOO . 
cuirval" 0,0000000 
curval" .0.0000000, 
curval" O.OOCOOOO: 



YES 
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u_psycn . . 
. v_psych 
• wjpsych .• 

x^psych . 
, yjsych ■. ' 
. 2_psych • ■ ' 
: zl_psych' ■ ■, 

z2_psych 

z3_psych 

24_psych '. 

z5_psych 

zfi^sych 

ehdpcable^yli 
. . endsec 



dc 


.c 


.0000000 : •• 


;T curval- ■. 


0 . ocooooo • 


dc 


c 


.oooocoo 


;U curval* . 


o.ooooooc- 


dc 


c 


.0000000 


• ;V curval« 


0 .0000000 


dc 


c 


.0000000 


;W curval« 


0 . 0000000 . . V. 


dc 


c 


.0103810 ; • • 


: ;X curval- 


2 dB/Bark 


dc 


0 


.0259525 


; Y curvai* 


S dB/Bark. 


dc 


0 


.0415239 \ 


. ;2 curval- 


8 dB/Bark . 


dc 


0 


,0000000 


,-.;21 curval- 


" 0.0000000 


dc 


0 


.0000000 . 


;22 curval" • 


o.ooooopo 


dc. 


0 


.0000000 . 


: ' ;Z3: 4 tO 30 


m used sub- bands (mono) 


dc 


0 


.0000000 


,;24 curval- 


0:0000000 . 


dc 


0 


.0000000 : 


;ZS curval- 


0.0000000 


dc 


0 


.0000000 


;26 curval- 


0.0000000 . . 



section 


highmisc 


..;;-xdef 


starcyhe . 


* xdef 


bit rate . 


xdef 


frmrate 


xdef 


smplcde 


xdef . 


smplrte 


xdef 


, smplidbit . 


Xdef . 


bndwdth 


. . xdef 


frmtype 


" xdef ; 


opf rtyp 


xdef 


baudrte 


xdef 


oputcde . 


xdef . 


f rmbits 


xdef 


f ixbits ] 


xdef.. . 


audbits 


xdef : 


ancbits 


xdef 


stintns 


■ xdef . \ 


b_i 


■ xdef 


fmap 


xdef 


ThresSLB 


xdef 


Threshld 


xdef 


. cb -■ ■ 


• . • xdef 


g cb 


xdef 


dbaddtbl 




plctmn 


^ xdef ; 


endyhe 


. xdef 


samplng 


xdef 


bitrates 


; xdef 


baudclk 


. ..org . 


yhe : 



stxmicro^yhe 
startyhe, 
'bit race, ds 



;bit rate, code for MUSICAM frame header' 
; sampling rate 48 K or 32 K: 
: ISO and old CCS CDQIOOO :; 
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fmrace ds. 



smplcde, ds' 



■ 3 (0011) e 55 K3its ' . 
4 (OICC) - 64 KBits •. : . ; . 
..V sampling rate 2^ K or 16 K : "/ 

•'; ' : ISO: ■■ . 

7 (0111) - 56 KBits 
; B (1000) - 64 KBits 

;■. . old CCS CDQIOOO: 
; . 3 (0011) - 56 KBits . . .. 
;■* ■ ■ -4 (0100) - 64 KBits . 
;overall frame bit rate as to hardware = 
;.. switches. {1. bit) indicate 
; bit rate .sets numb words in a frame: 
; \ . 0 • low Kbit rate 

1 « high Kbit rate 
.•sample rate code in MUSICAL header: . 



ISO: 



00 
01 
10 



44 
48 
32 



, 1 K or 22.05 
■K or 24 K .-. ! 
K or 16 K . 



old CCS CDQIOOO: 

00 
■01 

10 
■ 11 



smplrte ds 



smp: 



ds 



bndwdth 


.ds .. 


•, ; 1 


f rmtype 


ds 


1 


opfrtyp 


ds> 


'M 


baudrte 


ds 


■ . "1 


cputcde. 


ds 


1 



frmcits ds . .•■ 


. . ■ l- ■■ ■ 




f ixbits . ds 


-.1 ' . 




audbits ds 


:.; 1 '. 




ancbits ds 


' . . 1 




stmtns ds - - 


* 1 : ■ - 




b_i ' : . 


ds' 




finap: 


ds 




ThresSLB . 


ds 




■ .-Thfeshld . • 


ds 


1 


cb - 


■• -ds . •■; 


' . ' 1 


.g cb'-:' 


■ ds . . 


■ 1 


eibaddtb: 


■ ■ ds 


■ 1 


.pictrrr.-.- ds . 







16 K 
48 K . 
32 

24 K ■ 
; POM data sampling rate: low vs high rate 
; depending. on flag in box^etl.asm thac 

indicates the pairing (16/24. 16/32. 16/48.. 
. ;• . 24/32, 24/48 or 32/48) ! 
• ; switches (1 bit) indicate 

0 . 16000. 24000 or 32000 
; . 1 • 24000, 32000 or 48000 " 

■ I'hdr id bit: • ■ ■ 

; ISO: 

. - 1 for 44.1, 48, . and 32 K sample rates 
r 0 for 22.05. 24, ahd 16 K sample rates 

] old CCS CDCIOOO : . • • , * , • ■ 

1 IS always used with special sample 
• rate codes m the header v above . • 
•code- for setting sub-band limits 
;dxp switches (2 bits) are sec to: 
..- ' 11 • (3) mono (1 channel) 
•current frame type after bit. allocation .. . 

■ j ancillary data baud rate 
jtype of . output coding: MUSICAM vs G722 

■ switches (1 bit) indicate • • 

Q m KUSICAM frames , 
; , . . ; ■■ 1 • G722 data 
;bits in the audio portion of frame :; 
•bits required before audio data bits 
; number of bits available for audio data 

• . ;bits required for. ancillary data current 
; intensity subband boundary code 
;addr b i. table for low or high sample rate 

' ;addr fmap table for low. or high sample rate 
;addr ThresSLB table for low or high sample rate 
iaddr Threshld table for low or high sample rate 
;addr cb table for low or high sample rate 
•addr a cb table. for low or high sample rate . ■ 
iaddr DbAddTbl ' ■ . 

.•successive phase lock detect 



frame 



zh. center mai: 
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endyhe *.•:;: 
';table .of sampling rates . 
' . SAMPLERATES 

■•; table of. bit rates. '. ' : \ ^ ' : ' y-'.-^}^-'^-'---\-' 

;baud rate table for ancillary data ;. 
BAUDCLK. '.- 

endxmicro^yhe ' • [.. /y'.'' 

endsec . • " ■ * • ; * 

.org -. phe:' "- ' • 

start 

; The external wait state is set to l. This allows the HCT541's to. 
; put their data on the bus in plenty of time. 

movep #$0001,x:<<M_BCR ;set all external io wait, states 

;iet dsp56002 clock to selected MHz (PLL Control Register) 

• .. XCODE_M_PCTL . ■ ' ' V -"^ 

; ■ PORT C Assignments 

;.. -s » ssi port. 

• ; i ti input port' . 

■© ••output port .■ 

XCODE PORT C M PCC ' ••set port C control register". 

XCODE-PORT'C^M^PCD . ;set output data to port .C 

XCODEIpORT^C^pTpCDDR ?set port C data direction reg. 

; initialize the ssi port for the ad converter 

' - " XCODE SSI M CRA • - :.;set ssi. era register;- ; 

XCODEIssijTcrB ; : ;set ssi crt) register 

■ .; " initialize 'the scl port' for tty . . 

. XCODE_SCI_M_SCR - ;. - -•- ' ; jset sci= status control ■ register : 

•• ; • PORT B Assignments 

• i 14 13 12 - 11 .10 9 8 - 7 6 .5 4 . 3 2 X.O 

; o;-. o ; i -o .-i i o. . o i i i . ?■ ^ .. ■ 

. XCODE PORT B M PBC . ;set B control register for general. 10' 
xcode2port2b;Im2pbd ; . . ;Bez the default outputs 
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/; initialize the host intarrupt, vector ■ 
; lNIT_HOST_yECTORS^ ; \ 

-restart •-■ ■ • ' .-.i' ' 

;/set the interrupt for host interrupts 
.; HOST set to 1?L 2 

• M TOO '•'se- int priorities and edges , . ' 

nK>vep ^>S080C,x:<<M_m 

;■ andi. •■•Sic.mr . • ' . 

. ;• cri ■ #S:3;mr ^ . . '/ " ■ ' " ■ - . 

. : ' ' . nop- . . ... ;. '\ . ■• / ■ ';. :• . .-- _ . ■. ' ] ' . ' 

■ ' 'nop',.;-.:; ■ ' ; :'" 

'/.clear Che analog „ digicai xonverter cc rescarv^aiibracion . ■ ,^ 

• •■ ■■ CLR_AD.C_RESET. ; : ■ 

: /disable Che ancillary' daca received incerrupt 

bclr-'- ■ .«M:.R1E. X i «M_SCR: 

/.^ move ^■#>OFFLEDS>.b ; iaiciaiize ■ leds >s ' of £ ■ . . ' ^ 

• ; move b,y:<word_ouc 

; IMI.inill • * 

; TEST. DATA ■. 

' - jiniUaUze the buffer co. be. encoded for' cescing- ■ • , •.• ' ' ^ 

■ .■iv.j^'ieate no Droblem with Reed Sciomer. 

: ... OFF R£E2.S0L.LEC_CD •■ ■•• . . '.Z^^;'*;' ist c« the encoded frames 
.. mov5 : ^0 ;«ro the '-esc value aecunuiatcr . 

clr a to incremensm the. cesc buffer 

;sec Che ■fr.me^ b.ffer.'co sequencially incre^^^^^ 

••; ■■ do • •• »96,>niti ■. ;■' • 

■. add xO.a ^- .' . ■ " . 

• . move • .aX.x: (rO)* ■ 

■ "d= the reed sclomon .ncoding .on the tesc frame buffer' . ' ■ , 

: ■ ■ ■ i/b DCiace'- sf buffer to be RS-COtE: 

move: . #frainebuS-.rO .. : . \Yl^ buffer is circular • 2 frames 
.move ., «Sb£.«0 . . ; poincer for CCDED data to be. scores . 

• move. •reedsolbuf.rl • .-. . ■■, '.^n^oS, v*,,. reed -.solomon 

' jsr ' ■• •: ■•<!»a*?-.'^*:'. ■ 
'• ■ ■•,..tesc'if.-che. reed solo«»n. "dec worked or NCT,- '■■/ ■■ v 
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neve 
move 



#reedsclbuf .rO 
«RStest.rl - 



;0/F' pointer far CODSD* daia* id be stored 
;pcincer. for the' verxfisar-cr. table/- ... 



•verify that the reed solomon coded values are correct 



_Saine 
RS Chk 



lt96/_RS_Chk 
X: trO)*.xO 
x:<rl>*.a 

• xO , a . . 
c^Same 

enddo ■ 
nop 

nop ;- 



. do . 
move 
move 
cmp 



.?Get current coded data output 

;Get precoded look up table value 

.•compare .2 .values - .■ 

;If SAME No problem . . 

; indicate no problem with Reed Solomon 



ON ALARM LED CD :. ; light alarm, led indicator . 

7Sf SET ALARM RELAY^CD. set ied_0 ; unless already set, 

SET^ALARM RELAY CD . " "* "rset the alarm relay line on 



set led 0 

. " .SET_LED5 CD . 
. - INTERRUPf_HOST_CD 

; Clear ail of. the y memor>' . 

' . ' . clr ■ ■ a . ■ r ' ■ 

move #$f£ff.TOO 
,. move #8tartyli,rO 

move #{endyli-startyli) ,rl 
'■•rep . rl 

move a.y: (rO)* 
move . #startyhe,rO 
move #(endyhe-startyhe) ,r: 

■ rep : ■- rl . ■ 
movie a.y:.lrC)* .. - 



; inform the host 



; value to set x memory to 
; just. in case/ set to linear buffer 
;8et starting address low y-memory 
;set loop count. 

; clear it ' , v ' 

;8et; starting address high yr memory 
;set loop, count , . • . . , 
; clear it ■. ;. ' 



;set linear buffer control...,^ 
. ■"••.move ■.: mp:,y:<linear 

•se* the CRC-i€ protection checksum as applicable and set the : 

• CRC-15 checksum. mono frame bit count for the old ISO method: . .. . 

' a header bits covered by any type of frame _ 

; plus bits for the left channel also apply to any type of frame 

] b. save, old ISC. bit count . for this frame . . 



bset 
move 
move 



•PROTECT ;y:<sterec ;checksum protection applies ..1- YES. 

«>CRC BITS A*CRC BITS B,a ;header plus one channel cits . 
a^^:c?coid" ' : ;.set the old ISO CRC-1€ bit count ;. 



;check the switches to determine bit rate . knd framing type 
;get the external switches to detennine: 

; PCM input data sampling rate , . ^wrTeTraM/^T-srj- 

; type of. audio compression to. format for output (MUSICAM/w722; 
•• '•if KUSICAM. the frame bit rate^ . 

if KUSICAM. ancillary data baud rate . . . 

'• : GET^SWITOISS^CD gsws^OD' ■ . 
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;8et PCM "data Bampling race, code*-- 
;8et type of . frame traono) to code . 
. ; ;8ec bit allccation. sub-band width code 
. ; type of encoded, output {MUSI3AM/3722 j 
■-. ;S€lt.the frame rate i/p code ■ 
.-set ancillary data baud rate code 
; set MPEG-ISO vs old CCS COCl'CCC • a / . 

;set current . frame type ' 
.;8et current frame type fcr cucput tc 

.-indicate mono framing I cniy . frame type, supported) . / 

. "bset .' "«S7ERE0_vs_M0N0,y:<stereo 

;based on aait^le rate tlow or high) set the addresses for various tables: 



3sr :• 


' <getsws • , 


. . move 


. x:tscsmpl,yl 


: . ■ move 


: yi;y:8n^lrte 


move .. 


X: tstfrme,yl 


move :• 


yl , y : frmtype. 


• . move" 


x:tstband«yl 


•move 


. yi ,y:bndwdth 


move . 


. x: tstcode, yl 


move- 


, yl , y : oputcde 


move 


X: tstrate; yl 


.'move 


yl.y:frmrate 


move 


x:tstbaud,yl 


. . move 


^ ylry:baudrte 


move.. 


xttscoccs.yl 


• :[ move • 


yl,y:<oldccs 


;8et framing mode led 


' ■■■ . move 


> - -- . 
y:frmtyp€,xC 


• move • 


xC.y:cpfrtyp 



move 
. tst 
. .jne 

. move" 
move 
move 

. move 
move 
moVe 



y:smplrt«.b 

b • ; • ■ 
<_hi_cables 

#b_ilo,rO 

tfmaplo.rl 

«ThrSLBlc.r2- 

«Thrhldlo,r3 

«cblo,r4 

#g_cblo.r£ 



.•address of b_i table for low rate . 
.address cf fmap table for low rate 
; address cf .ThresSLB. taible fcr low rate 
./address cf Threshld table for low rate 
; address of cb table for. low race 
.-address of g_cb table for low rate 



; indicate . coding at low sampling, rate for compression 
bclr «LOW_vs_HlGK_SAMPLING,y.:<stBreo 
' .< set tables . ; 



.hi.tabies 
" " . move 
* move ■ 
move'.' 
; ■ . move 
move 
move . 



«b_ilo,rC 
#ftiiaplo. rl 
#ThrSLBlo,r2 
«Thrhldlo.r3 
#cblo,r4 
•#g cblo.rS -. ' 



.•address of b i cable for high rate \ 
.•address' cf fmap table for high rate" 
.•address cf ThresSLB table for high race 
;addresscf Threshld table for high race 
:;address of cb cable for high rate ' ; 
.•address cf g_cb table for high rate 



.-indicate coding ac high sampling rate for compression 
biet #LOW_vs_KIGH_SAMPLING , y : <iBtereo • . 



^set^cabies 
" T move 
: " 'move 



ra,y:b_i 
rl.y :fmap 



?set addr.of b_i table selected 
.;set addr of fmap. table selected 
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move . . r2.y:7hresSLB . 
move • .. r3 , y :Threshld • 
move \ r4,y:cb 
move rS.yrg.cb ■ 
move «DhAddTbl 6db,r3 
move r 3 , y : dbadatbl 



;set addr of ThresSL3 caUsie selected 

;ser addr cf Threshld table selected 

;sec addr of cb table selected . 

;sec addr of 9_cb table sfexecced . - 



; based on the sampling rate and framing bit rate selected: 
. . . set the sampling rate: code for the ISO frame header 

; : set the framing bit rate code for the ISO. frame header 

set .the frame size in words and bits 

set the applicable bit allocation control parameters ^ 



move <t samp Ing , r 0 '■■ 
move y:smplrte,b ; 
tst b ttlCnO 

■ jeq ; • .•<_smplcds_. ■ • 

rep b 

move . (rOi ♦nO 



.-addr of. sampling rate codes. • " 
;offset to sampling code table 
;te5t for sampling rate of zero 
; & set register to advance thru, table 
: ;if code "is .zero, we're ' there- ' ■ ■ 



;pbsition to selected sampling rate code 



_smplcds_ 



move 
move 
move : 
:move 
mpye ; 
move 
move 
move 
bclr 
jclr 



y: (rO)*,xO 
xO ,y:sraplcde . 
. y: (rO)*.xO. 
xO , y : smpl idbit • ■ . 

y: (rO)*,xO ■ ■ : 

xO.y: <maxs\ibs 

• (TO)* .■ ■ 

«4.n0 

<»0 ,y Kcmprsctl. 

#0 , y : <oldccs . ^smplcf f s_ 



;encocing old CCS CDQIOOO . 



move 
move 
move 
jset 

bset 



y: (rO).*,xO . . 
■ tsmplidbit,rl. ■ 
xb,y:smplcde . 
#0,y: iriy ,_no^compress_ 
«C.y:<cmprsct. , . . 



; get ISO frame header sampling code 

; save ISO code to encode in frame headei 

;get ISO frame header id bit 

;set ISO, frame header id bit . • 

;get mono channel MAXSUBBANDS 

;set worJcing MAXSUBBANDS : 

;step over dual channel MAXSUBBANDS 

;in case of MPEG-ISO 

;CCS compression, is not applicable 

;if MPEG-ISO. skip over old CDQIOOO 's 



;oId CDQIOOO frame header sampling rode 
;to checjc ISO frame header id bit 
•save old code to encode in frame heade: 
;if ISO high sampling, ho coiapression 
;do CCS compression encoding . , . , 



^nc_compress_ 
"... move" 
. move 
; . move . 
move 
move. 
: jmp ; 



y: ?rO) ♦.xO 
xC,y:smpl idbit 
y:irO)*,xO . 
xO , y : <maxsubs 
(rO)* 
, <_af tscds^ : 



._sniplcffs_ } 
•MPEG- ISO encoding -, 

move ■ (rC) ♦nO 



;get old. CDQIOOO frame header id bi: 

;set ISO frame header id bit 

;get mono channel MAXSUBBANDS 

; set nforicing MAXSUBBANDS 

;step over dual channel MAXSUBBANDS 

;continue ••' 



;skip over old CCS CDQIOOO values 



af tscds ' 



move . , y:(rO)*»xO .. 
move xO , y : <tnaxcritbnds. 

'-mov(6 • '• y : r 0 ?• » xO . * -• ■ . •> 



;get MAXCRITBNDiS-.. value. 9 sample rate 
Vset MAXCRITBNDS at selected sampling 
;get NMSKTREQS value S sample rate . . 
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move x: , y : <nmskf reqs 
move. y : 5r!r.ra^e.c 
move •bicraces.rO 
:tsz. b. . #B.nO • 

jeq ■ <_bit_cffs^ ■■ 

"rep" .• b' ' 

move ■ irO) *nC ■ • 



.•set; NMSKFRECS at. selected, samplinc 
.test cit rate zo sec audic data size 
.:.addr cf. framing bit rate. iafc; ■ ■ 
'rrest for rate of zero 
:; & set register to -advance ' thru table 
;if code is zero, we're there 



.•position to "selected bit rate code 



^bit_offs_ 

;set the table offset based on sarnplmg rate 



move ytsmolrte.b 
•tsf . ; b • ' «4,nP ' 

■..je'q ■, ' '■ ^bit^stnpi^' ' 

•rep V ■'b 

move *■ irO! -nO ... 



_bir^smpl_ 



jcir «G.y:<oidccs.^bit^cds^ 
move , irO)," : " "* . " 



bit cds 



move . y:(rCi*,nl 
jset «0. y :<oldccs._af tbcd_ 
.move . (rO) * ' • • . " 



:r>cd 



move y : (rO: •/yl 

move y: irOJ . r2 . 

move nl.y:bicrate 

move . yl , y : <outmus . 

move r2,y : frmbits. 



;get the sample rate code 

;test. if low sampling rate 

; & set offset to proper sampling . rate 

;'if low'racei, addr is set ■ . . - 



; position 'to iselected sample rate 



..•if MPEG- ISO. continue 

;adv to. old CCS CDClOOO's code 



.-get bit rate code for frame header- 
;if old CCS CDQiOOO's.- continue 
;sicip oyer old CCS . CDCICOO code 



;selected bit rate frame size in words 
:;number of audio bits in an output frame 

/audio bit rate code for frame hdr . 
;set # of words m a frame 
;mu5i cam audio portion of frame 



;set bandwidths based on san^pling rate, bit rate and band width selertjisn 



move 
move 

3 sr. 

move 
move 
move 

cmp. " 

' jlf . 
■ cmp 



y :smplrte,b 
y:f rmrate« a 

<bandwidth 



;8et bandwidths based. on sampling rate 
set bandwidths' based on frame bit rate. 



/get the selected sub-bands, if any 

;;set initial used sub-band value 
;set minimum sub-bands to be used 
tt>MAXSUBBANDS_CCS. xO ;see if subs is toe small. 

. ■■. ; •- ;■• & set. default value, of maximun- 
.<_defauit_used^O0 ' ;if less, default the . used sub-bands 
xO.a ^ ; see if less than maximum sub-bands 

< after used 00 • . ;if less, we're ok 



y: z3^sych.a 
a,y:<uBed8b 
#>M1NSUBBANDS_CCS , xC 
xC.a 



^default_used_00 • 

.'default , the used sub-bands to max sub -bands 
move ... xO, y:<usedsb .... ... 
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.•calculate buffer length controls 

move " . #>2,xi 
" mpy • • xl.yl,a .#>l,xl . 

. .• - asr ' a . .• 
move : aO.a •;. 
■ sub :. . ■ xl . a 
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;set the mod buffer for 2 frames 

; align - integer result 

.•shift, integer' result - ••■ 

; (frame numb words ♦ 2" - i. 



.".;now' save the' above buffer control values . ■ ■ 

move- ;■ ar,y:<outsize ■ .... ;set circular buff er ' ctl. f ore? buff er 

;set the typc-cf stereo intensity code as. nominal 4 subbands (not act 1 stable . 

:f 4 



move 
move 



«>:NTENs:Ty_4,xo 

xO.y.stintns 



;steree intensity code ftr defaul 
.•save for frame header info . 



; Set output write read pointer to something safe since interrupts will 
, ; be. on 'before it is set properly. 



move 
move 



>f ramebuf ,rO 
. rO, y : <oprptr 



.; address of output encoded frames buff e: 
,;set the output read buffer 



up for ancillary data to be decoded from a framed and transmit via rs232 

a. zero the input data byte counter and bytes for current frame 

b. set address of clock table, baudclk, based on baud rate ;o thru 7^ 
\ c. set table offset by baud rate;-.- 

: these are standard CPQ20CO set by macro ^ BAUDCLK. in box ctl.asiT: : 
■ ..0 ■« "300 baud " " • . 

. . ■ •. 1 > 120C baud- ■■ 
2 - 2400 baud '.. 
■■ . 3 • 320C baud 
• 4 « 4800 baud. " .'.s- 

■ -5 • .38400 baud ■ ■ 

S. • 960C baud 
, 7 - 19200 baud ^ '. 

c. set transmit enable '.for xon/'xof f . . .' .' 

e. get and set the clock for oaud rate from the table 
. f. get and set the max bytes fcr baud rate from the table 

g. set the- data. input. and output pointers ' • 
- • h.' set receive enable }. 

X. set . receive; enable . interrupt'-. 



move ■ ■ -■ itO'.xG . 
move xO . y : <bytecnt 
move . xO ,y ; cbytesf rm. 
move- ■ .ilbaudclk.rO . 
move y:baudrte.b 
tst •;. fc .. ...its ,nO . 

j eq. . . <_baudrte_ 

. re? ... •■•-b' ■ ■ • 
move trb) tnO • 



baudrte 



move y: :zZ 



: zero the received data counter 

;2ero the byte counter 

;zero the current frame byte ccuntef 

;get data baud rate table address • 

;set to access clock at baud rate 

;test for rate cf zero 

; & set register to advance thru tab i 

;if code is zero i we're, there 



.-position to selected baud rate code 



;get clock value at baud rate 



BADOB'GINAL 
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move y:smplrre,nO 

mcye «fdatabytes.,xO 

move y : < rO*nb ) , nl 

move nl,y:roaxbytcs v 

move xd , y : <dataipcr 

move xO,y:<dataoptr 

. movep r2.x:<<M SCCR 

bset «M RE,X:<<M SCR 

bsec . «m2rie,x:<<M SCR 

bset / #M T2.X:«M SCR . 



; now get sampling rate .offset 

;get addr of the data byte buffer. 

;get max byte .count at sampling rate 

;store maxbytes. for. scixmt to check 

/address for next byte received 

;addr for next byte to output to frame 

;set the clock for. selected baud race 

;set receive enable 

;data expected set receive interrupt 

: set transmit- enable . 



; enable the host command interrupi: 

• ■ bset;- #M_HCIE,x,:«MJICR 'Z; 

;. Set and , clear a ;flag so We can set the scope trigger . . 

ON BITALLCC LED CD ' • ;8et a different flag for debug . 

. . OFF^BITALLOC^Lm^CD • • • ;• •'• / ^ .. 

; Now form the two pointers to the output buffer.. 
. ; f rmstrt is the. write pointer and frmnext is the read pointer. 
;. f rmstrt is used to point to where the current buffer is for outputting 
; data into. This data is a result of the current musicam coding. 
; frmnext is used to point to the address for outputting of data 



; ; address of the output frame buffer- 

;set the output read.ptr 
..;set the output buffer circular ctl 
;lst frame at start of buffer - 
/advance to start of 2nd frame/ 
;set.the output read buffer 
,;set the next frame to write into 
: ;set up last word addr of curr frame 
;for block sequence numbering 
- ■ ■'• ; reset to linear buffer ' 

and the number of available bits fcr. audic 



to -the external device. - 


move . 


. #framebuf,rO 


move ' 


y:<outmus,nO 


move 


y : <outsize, mO 


move 


rO,y: <f rmstrt 


move 


.. (rO)^ho 


move 


rO,y :<oprptr 


move 


. rO ,y : <f rronext 


move 


trO) - 


move 


rO . y : <f rmlast 


move . 


y : <linear ,mO 



;set number of fixed bits required, 
jsr'- cbitpool 

move xO,y:fixbits 
move ; . xl.y:audbits . 

J initialize for receiving data ..for xpcycho routines 



;save fixed bit count 
;save bit . count available for alloc 



move 
move 
move 
jsr 



#inpcra, rO . 
r0.y:<ipwptr 
#xbuf .rO 
<polyaini 



;get the input pern data buffer 
;set start address for input pern data 
;set starting position in x buffer 
;init the poly analysis filter . 



IRQA set to'IPL 3, negative/ edge (lowest priority).. 
SSI set to IPL 3 '. • . ; 

IRQB set to IPL 3 / negative edge (highest priority) 

HOST set to IPL 2 . 
SCI ■ -set .to IPL 3 



movep «>$f83fvX:<<M_IPR 



;8et;int priorities and edges 
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■:. ; .124.;.^. . ^-^ • ."• ■ ■ 

;wair. fcr Che dust. to settle before pushing onward 

...move". #>XCObE_STAimjp.a ■'■ 
.;. jsr- "V/ <wait ^ " • - . 

SET_ADC_RE"SET istop A to D' calibration . ■ • 

test :-MUSICAM. versus G722':- -^ ■ . 

. . if MUSICAM, go to the' TOP of ' frame' processing . 
; ■- . if G722, .jump to; that. ;routine and restart; upon^ return : 

"move y:oputcde,a •;; MUSI CAM vsG722 

tst ■■ •- a . ' . ;ii zjero, 

jeq - <_go_on_ ; ;it's MUSICAM, enter that loop^ ^ 

•; .• jsr" ■<g722.. ; handle. G722 , ■ 

;G7 22- output selected, boot iip XMCRG722 from the low portion . of chip 

bclr, #ll.x:<<M_PBD ;clr boot cOOO for XMCRG722 bbot.iOOOO/ 

'•■ jmp:. <bootup ■ ' iboot in XMCRG722-' 

■ ; ■ ' jmp; ■ • ; <restart - ' ;restart with new 'switches .-' . 

j3Pjon^ •■ : .'^ ..' " 

; handle - MUSICAM encoding • 

■ ..andi : #$£c,mr " ' ;turn .on the interrupt " system 

;main Ibop thru the frames of data set up by the left and right 
; kpsycho.dsp for bit allocation and framing by the.xcode dsp . 

top' • • \ ■ ... * • • 

;:.::dbg 

" nop . . ■ 

■ nop" ' ■ . - ' V : 

' move ■ • "y:dbgcnt/a . • •" 

• ; . move . . #>l,xO 

; . add xO , a 



!dbg 



move a«y:dbgcht 
jmp <_initl. 



;*::dgcst bset , WATCM DOG . .-tickle the dog 

■ ; ! I idgcst bclr WATCH~DOG , /tickle the dog 

■• • TOGGLE_WATCH_DOG_CD . " 

;get the external switches to detiarmine if. any changes that .signal a restart 

• ■ GE7_SWITCHES_CD gsws_10 ■ '. •^ ^' ^ 
". jsr"" ..." <getsws 
. jclr. #4..y;<not_appl._lets_gd- ; ! |[ !debug. - remove for normal. 

; test MUSICAM versus G722 : - . • 

; . if G722, jump -to restart - 

; if MUSICAM, .continue- 

■ ■ move' Xttstcode^a ;■•■..:;:■•■";■ V /MUSICAM- vs G722" 
; '.tst ■ ■ .- a" ■ /if zero, it's MUSICAM- ". 

■"■•■jne' <restart ..",•.■'.■'. ,: if s G722,_ .start ovisr .to- boot;- ; 
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■-125- - ■ 

TST SET G722_DATA_CD.rescarc-- ' 

have CO restart. with new framing criteria, 
; protect Che decoding of frames by clearing 2 successive frame 



move y : <f rmscrt, rfi 
move. . y : <outai2e,m€ 

'• clr ,/a.; 

do . ■ ■ y : <outmus._clear_l 
move a.,x: (rS) * * . , 

_clear_l^" 

:•;.! ! 12/8/93 

TST SET G722_DATA_CD, restart 

■ ; ! ! !2/9>93. " " ' ■ .-^ " ' * '.■ 



; set Starting for output. buffer • 
;set the. output buffer .circular ctl 



;clear the Ist frame 



■••■.jc2 



clr 
- bclr 
move 



do 

move 



#0 . y ! < timer , _clear_l 
#0.y:<timer " : . 
y:<f rmnext ,r6 . 

y:<oucmus. clear^2. 
a.x: (r6>* " 



;check for new frame ■ • : 

;sec starting for output buffer 

.-clear the 2nd frame 



_clear_2- ' 
12/8/93 

TST SET G722 DATA^CD. restart 
;! ».:2/8/93 ' " 

' jclr. «0.y:<timer,_clear_2 
bclr . #0,y :<timer " . 



; check for new frame 



move 



; restore to linear buffer, cohtro: 
; let's start aiiew 



y:<linear,m6 
..<restarc 

_lets_go y^-- - 

vinitialize stereo control settings' to; reflect current transmiss^^^^ - 

jsr.-;. <setctls- - 

;chec)c for new frame . / 
. . ;clr 0.. 024/0. 036 msec timer bit alloc 

/now set .the used sub -bands for this frame . ' 

V23 osych.a i ; get . the selected sub-bands, if any-, 

a'y.rusedsb ; set. initial used sub-band value-^ 

#>MiNSUBBAm)S CCS,xO ;set minimum sub- bands to be used . 
vo a #>MAXSUBBANDS CCS,xO / ;see if subs is too small • 

V ^ ; St set default value of maximum. 

< default used 10 ; if less, default the used sub-bands 

xO a . ;see if less than maximum subrbands 

• <.aftef^used_10 ^-Jif,!^^^ 



jclr 
bclr 
bclr 



#6,y:<timer, top 
#6;y:<timer 
#0.y:<qtallQC . 



move 
move 
move 
cmp 

cinp 
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?. ; -we. :■. / V..-..' 

_defauit_used_lC, 

;de£aul^ che used sub-bands ro.max s»^b-bands ■ 

•move-.."; xO.y :<usedsb;- •"■ , •""''*.■■ 

,_after_usea_10 ' , ^ 

;sec zhe CCS compression as per conrrsl parameter (n^psych.) . .. 

bclr nc y:<cmprscrl ; .* ;defauit as do not. use CCS ccicpressicn 
move y:n_psych,a . . ;gez the parameter from the table . 

• move.. • *t.5;x0 •. ;if less than-,.5. no CCS compress ■ 

■ ■'crap ' '.xO.a .-see if use CCS compression or- not" ' 

■jit ■ ■< no compress; ;if less, do not use CCS compression 

• ■ '• bset #0;yT<cmpr8Ctl- \ ■' . . - .-otherwise set . flag -to use CCS compress. 



_nc_^c6npress 

;the new. data for the next frame is all set, lets do it/ \ 

■ jsr cdcframe . . 

INTERRUPT HOST CD .-inform the host • 

;pass the.KUSICAM"enco5ed frame off for reed solomon encoding . 

■ move y:<£rmstrt.rC • ;aet- starting, for output buffer 
move ' y:<outsi2e,mO ;set the output buffercircular ctl 
move . tireedsolbuf . rl ;set starting for output buffer 
>sr <hew rs - -■ ..-call Reed Solomon encoding routine* 

; : :":dbg •' ■ 

jRjp . <;:op ;:'ldbg: skip Reed Solomon .. 

; I :': dba' * 

copy the reed solomon encode frame into the output frames buffer 

■ . - move v:<£rmstrt,rC , set starting for output buffer.. - 

move' vrcoutsize.mC - .-set the output buf fer, circular ;ct. 

move ireedsolbuf,rl. . ..;set. starting for output oufrer 
■■ do ■■ .■■■■Jy:<outmus._copy_r8 

■.'move -"xMrD^.xC . . " .• 

move ■ ."xO,x:.trO>- ' . 



_copy_rs 
. -. ~ ■ 3»P. ,'<-op . 

■ end- star: 
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. . op- . ' /./•'■■*; ' [ 

; (cl 1991. Copyright Corporate Computer Systems, inc. All rights' reserved. . 
.; .\URDCDSYN\autosmpl.asm: modified to' coordinate' with BEN's mux / 
title-. 'Decoder Auto Determine. Satnp ling -Rate'. ■• 

• This routine attempts to determine the sampling rate of MUSI CAM frame of 

• -npu- daca being fed to a MUSICAM decoder. Zz tries tc match on the 

; selected bit rate a corresponding sampling rate .that are predefined fcr. 
•; the given units capabilities. '.• 

.;oh entry:' ' ^ '■■■■]- ^ ■ 

yrfrmrate « indicates which bit rate was selected .. 

-yrcctlalgs « NO LINES bit is set. as to whether split frames possible 
xrmaxtries • the number of attempts at framing that .should be made 
■ \ . before -determining that the input data is not MUSICAM .• 

include . 'def- ."asm' - ' 

. include .\common\ioequ. asm* . 
include- 'box^ctl. asm'" 
'include ' box"smpl .asm' 
include 'box tbls.asm*. 



org 
. stauto^yhe 

syncptrn 



section highmisc 
xdef syncptrn 

■yhe: 



ds 



;4 possible sync & hdr patterns 



"endsec 




section 


lowmisc 


xdef 


synccnt 


• xdef 


syncmtch 


xdef 


syncwrds 


xdef..- 


syncbits 


xdef ■ 


syncfrms 


xdef 


synced 


org ■■■ 


•yii:- 



■stauto_yli 

synccnt . • ds. 

' syncmtch- ds 

•syncwrds- • ds." 

syncbits . . . ds 

syncfrms. ds. 

- synced • - ■ ds . 

endauto_yli 

endsec 



. 1 



; count of sync patterns to check 
;pactem matched (odd-padded) 
;words per frame (if pad diff -1) 
;bic offset to frame start . 
; number of frame to sync up. on 
;eount of frames sync'ed 



• ! iBEN 



section, highmisc 



xdef 



srchrate 



;! tlBEN 
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xdef 




tiBEN 




Xdef 


• ■ maxtries 


■ xdef- 


tscsmpl 


xdef 


f ndbic 


■ . xdef • 


. fndampl 


xdef : 


. fndidbit-' 


xdef 


. padbic . - 


- xdef 


sampletable. 


■erg' • 


.. 'xhe: 



!BEN 



s^autc^xhe. 












srchrace 


dc.'-' 


C 


srchtries 




0 


; : : IBEN 






maxzries . 


: dc • . 


■•' c 


tscsmol 


. ■; dc 


. 0 


fadfcii 


. dc 


0 


fndstnpi 


. dc 


0 


fndidJbii- 


• ■ dc ■ 


0. 


padbit 


dc 


. 0 



; index tc rares in sample race cable" 
.•failure counter of auto sample atcempcs ' 

current auto determine max tries., 
•sample code under test 
; bit rate code from frame header 
.•verify found sampling race seiecticn 
;verify found sampling race id bit. 
.•save padding bit from the header 

.•cable for sample rate, auco determination 



; SAMPLETABLE ■ • . 

endautc^xhe-"'' . 
■ • "endsec 

org "pbe: 

.autosample ■ • 

CLR_DAC_RESET 

■; M :BEN ; 

.•;;turr. cff the interrupt system 
en #503. mr. 



Kow set.priorites of the IRQA and SSI peripherals 

la^A priority « 2 

IRQB' priority.- 3- . " • • 

SS2 priority - 2 . 

SZZ priority - 2. 



.-.clear the DAC resec line to mute outp-j 



moyep «>Sa03e . x : «K_IPR 



;8et; ir.t priorities, and edges 



; : : :BEN_ 
_autc_AA . 

: j-sec «AUTONEXTFRAME,y:<process._auco_continue 
:buils up the. frame length cable based on the selected bit rate 



move usampletable^rO 
move «AC70BYSAMPLE.nC. 
move x:srchrace,b 

est . .* b ■ 

jeq . . . auto.BB ' ■ 



;addr of sample rate frame lengths. " 
.; set auto sample of f set cc next rate 
;get ■ next race index to. search f cr . 
;see if 1st sample rate. in table 
;i.f so, slcip address adjustment . 
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■ do ■■ b auco BB ' ' itor index count; adj' table addr;" 
•move :{rO)*nO~,- ■ • . . jadyance to next sample -rate 

; liforthe number' of- sampling rates, supported; set. table of frame lengths ' V 

il- ■ ■ ■ do • '■■ #NUMSAMPLERATES._auto_9Q0 ■ 

;7/12/94.: test sampling rate aV not applicable CO ■ Current p 

rO v<svereo ; save current table address , 

^11 x-UOv!Tb . .-get rate applicable code (0 - APPLIES) 

Sllr « ^-oldccs . • . ..;llear y:oldccs frames CDOIOCO flag 

ZZt . • w ;see if not applicable (-1 = N/Ai 

■■.jit - ' auto_800 ■.-ilN/A, go to try next sampling rate;.. 

j.now test for framing on old CDQlObO.low sampling rate old frames . 

■ ■ ■ icq ■■ ' ■ auto' A ' ■.'■.., if zero/ not old CCS COQIO^^^ 

baet ■ io.Violdccs ; indicate old CCS ■ - - ■ 

bset #1 y oldccs . ;indicate old CDQIOOO frames^ • - 

. , blet ..,#DECOMPIlESS_PACKED.y:«crlflgs ;handle CCS compression . , 

■ __auto_A . 

}get the MUSICAM frame header 10 bit. that indicates high vs low sampling rates 

■ H,o^,* x- (rO)*xO ■ jgef the. high/low ;rate hdr id bit 

xO y 8.^U«Jt)it. jaave for translate rate code 

• ..j^* . xO.y.smpxioBit . entries, at sample rate 

-^««eiar-.Mtefi rO :addr of the translation table . 

■ .; . . ; j!nSI«e!nr ^ ; . Offset to translated iindex • , 

^ ,^n\:.no ,pos to bit rate translate 1st value 

move. ♦2°. '.Sos to bit rate translate 2nd value 

" ' y^i^lidbit no low (0) or high ID sample rate select 

"^l' y;«?Pi*^^''">* ... . .. CO see if not supported ' 

^ ^ rift!nQi xO '.-get the translated rate, index code . . 

.. .. move y!(r04.n0),x0 . . . . if^e if not supported race 

•. ' a«o_800- . ;.'..-not supported, try next sampling rate 

.Vset-the supported framing-.bit rate table index code 

.move- -.■xo^yifnnrate ' rbit rate ■.index code- 

.' ■■,,ec ■up'xhe^ f^^^^^ '''' .■■ ■•"■' 

«KTinr>SYfilTRATE nl ;humb parameters per bit race . : . 

move . ....... ;get the defined bit rate . 

.. n«^« .: , y:*"«*":^_l,^..0. . test if code zero 

tat,, .b . .. . .x. iril*."" ' . t set table sample rate code . 



■"'■jeq''- •■ ■■<„,roOO--' ■".■■•'." zero, skip. addr. adjustment 
.■ -.rep 



-it zero, BKiB daoE aa juswuicut. 

jeq . .. .^auto.op . .. .. ■ .l-lsHioA. Selected bit rate 
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move , 



(rli +nl 



auco 00 



move • •■xO,x:tststnpr.' .., ' :".;save sample rate code : : • ■ V':- ; 

;build up the" table, of framing patterns at this sample/bit rate 
V= move «syncptm,r2 ^ V- ;tabie of framing patterns to match. 

• ;set at least the 1st two patterns.; unpadded and padded .{possibly) 



move ; 

" tst . 

move 
. move 
".tst- 

jeq 
move 
. move 



x: (rl)*,b 

b. . b.xO • 

auto^BOO 
x0.y:Tr2)'«' . 
x:(rl)*,b 
b #>l,xl 

auto 10 ' 
b,x0 
. #>2,xl . • • 



auto 10 



■ move . x0,y: (r2)* 



; get 1st defined. framing pattern 
;if 1st pattern is zero, not valid. 
; & save 1st defined framing pattern 
;bit rate not supported « sample rate 
; insert the pattern in test table 
•get 2nd defined framing pattern 
;if pattern xero (NO padding possible! 
; & set pattern count to 1. (at least) 
;if zero, use 1st pattern over again 
;else. use the padded framing pattern. 
*;8et pat tern. count to 2 . 

; insert 2nd pattern in test table . 



;npw 



if:fiplit.mono framing is possible; set up to look for those frames 



jclr 
move 
tst ' 

• jeq ' 
move 
move., 
tst 

jeq 
move 
move 
move 



UNO LINES, y:<ctiflgs ;.auto^20 ^NOT appl if. one or both lines 
• .. • ly-A rf*»fined framma Dattem . 



x: (rl)+,b 
b b,xO ;. 

auto 20 
;o,y:Tr2)* 
x:(rl)*,b 
b #>3,xl 

auto 20 . . 
b,x0 ' 
. #>4, Xl • 

xO,y: (r2)* . 



AW , * '-rT— — . 

;get 3rd defined framing pattern . 
;if pattern zero (NOT split frames). 
; & in case of duplication as 4th 
;if zero, NOT eligible for split frames 
; insert 3rd pattern in test table 
;get 2nd defined framing pattern 
;if pattern zero (NO padding possible) 
; & set pattern count to 3 
;if zero, use 1st pattern over again 
;else; use the padded framing pattern 
7 set pattern count to 4 . . 
; insert ^th pattern in test table ■ . 



auto 20 ; 

"set count of framing patterns inserted in the; framinb pattern table ■ 

.V move :^-xl,y:<8ynccntr- set the pattern count: 

;get the frame length values at this sample /bit rate 



. move- # f ramevalues , rO 
move - #FRAMEBYSAMPLE,nO 
move. x:tstsmpl#b 

.tst ••■ ■■ b 
j«q - .auto^40 



;addr of sample rate values . . 
;numb parameters per sample rate 
;to see if need to adjust address 
; if code 0. no need to shift address 
if 0 , get the 3 parameters ^ 



;adjust. the t^le address to proper sampling rate parameters. 



rep 
move 



b ; 
(rO) ♦aO 
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move 
move 
zsz 

jeq 



#FRAMEBYBITRATE , no 
y: frmrate. b - . 

b . -. 

.. auto 50 - 



; numb parameters per framing cit race 
;test bit rate to set audio data size 
;if cede 0, no need tc shift address 
■/;if 0, gef the parameters 



;adjusi the table address to proper framing bit rate parameters at sampi^ rate 



rep 
move 



b 

(rOli-hO 



^auto^BO 



move y: (rO)*.rl 

move rl^hl 
move . (rO)* 

move' iTl) ♦nl 

move (rl) - 
move ' rl.y:frmemod 
move . . y: (rC) *.b 
est • b ' nl, rl 

jeq ^auto_60 

move Trl) -"^ 



;get the words per frame at rate , 
;tc calc circular doubled buffer ctl 
;slcip the bit count per frame " 
;double framing buffer • 
;fcr' circular double buffer ctl ■ 
;save framing circ buffer ctl 
;get any padded frames DIFF value .; 
;to see if word count adj needed . 
restore frame length in words 

; decrement word count if padded 



auto 60 



move r 1 , y : <syncwras 

move y: (rC)*.xO 
move • . : xO,y : <syncbits 

move #0 , r3 

. move r3 , X : srchtries 

bclr #o,y :<protect 
bclr . #Q,y:privacybi: 



;sec the words per. unpadded frame • 
;get any unpadded frame extra bits.. 
;sec any unpadded frame extra bits 
;tc zero the failure counter. . 
; zero the failure counter 
; start looking for CRC protection 
/Start looking for privacy bit off 



auto 70 



; I : :ben 

; ? ;turn off the interrupt system 



on 



#$03, mr. 



•initialize "for the interrupt routine to try to frame 



move' . . X : srchtries , r3 

move" #o;xO 

move (r3) 

move ' r 3, x: srchtries . 

move xO,y:<inpstat 

bset . #2,y:<inpstat . ■ 

move. . y:frmemod,aO 

move ao , y : <inpsi2e . . 

move . #>AUTO_FRAMES,y: 

move yi,y :<syncfrms 

move . xO , y : < synced 

move . #syncbuf .xO 

move. xO,y;<inpwptr 



; current failuer counter 

; clear all bits 

/increment attempt, ctr 

;.save incrment failure counter 

/flags to control i/p routine. 

/flag to do pad framing. 

/ for framing, buffer size . . 

/Store for ssirec rtn to store 

;# of frames to match . 

;set number of frames to sync 
./zero the synced frame counter 
-/'address of the. input .buff er 

•set the input write pointer 



; ; /^>^f2re turning oh the interrupts, restart, the input data stream process 
/././ .that inputs bits to form 24 -bit. words • 
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. • . -132-. • ' •■ ..- ' ■: ' •^ • 

i move #BitlT6In,r7 .;init Che bit input, buffer, ptr " . • . . 

); .. andi ■ #Sfc,rar . ; turn on the . interrupt .system ;. 

; ; ;hang out here until, framed or failed 

auto'80^ ■ ■■• ■ 

■ . "bset' WATCK DOG .-tickle the dog . ' .-• 
/' .■ bclr WATO-rDOG ;tickie the. dog • • 

,bset . tAUTONEXTFRAME, y: eProcess ■ 

;!! IBEN: per form old ssxrec auto. sampling on current frame . 

_auto_continue: ■ •.- ■ ' 

;we are now ' attempting to frame:. ..• / 

';if start of "syncing" (bit 3 not-set)', ..' 

set 1st word .of pair to check*- . • ■ 

; ' sec starting word offset 
; . ' set flag to set 2nd word- 

; continue to react when 2hd.word to check comes in 
• else ■:*'■■ 

; see if waiting' for the 2nd word or counting looking for the next sync 

move y:frmcurr.r4^ ;set start of the frame addr 

move, . y:frmemod,m4 ■ - ;sct circular buffer 2 frames 

_auto_CC- . ; ■ ' ■ 

; start looking for framing pattern' . 

jset «3,y:<inpstat. auto 35 ; we have set the 1st . word/ continue 
clr a r4,y.:wrdoff'". - ;init.for the 2 words to check 

& save initial start word offset 
move x:';r4)*.al ' . ;set 1st word to check (incr write ptr.' 

bser ^3.y:<inpstat : ;flag to check the 2nd word 

■ : move #0 r2 ■• - /start count of words looking for. sync 
•■••jmp- . \._auto_CC.- ;try 2nd word .- 
• if waiting for 2nd word to check (bit. 4 not set). 

? put new word in aO to look for the 24 bit pattern 
; . Start Che bit of f set .counter .' . ' ^ ■ ' 

; loop through 24 bits over 1st and 2nd word trying to match one . 
of the defined -sync patterns 

';*^*we fouiid a pattern and are trying sync up on the next firanie • 

_auto_35 _ • . auto Ids /counting to check nexr frame sync - : 

move x-(r4) aO ;set Che 2nd word to search 

;■ ^11 $o!rl ^ ^ ^ rinit . the. bit offset. counter 

do . ' #24,_auto_65 

;-;see if current of f set contains a. valid sync pattern . 

-■■"-'move ai b"' .v'; current blc" Off Set ' pattern 

. . m^ve- i*sWtrn,nO; > -^^f^ tV'?cr«L^^*""^^^^^ 

• move #.0,rO ,. .; offset to 1st pattern ... ... 
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•.;loop through the .available sync; patterns 

. ' do- ' y:<synccnt,_aut6_55. ..■ ■ 

move . y: (rO+nO) ,xO ; " ;get the next sync pattern to check 

cn^ . xO,b ;see if pattern matches 

* jne ■ ,_auto_45 • . " . .;if act.,- try next. pattern* '* •'.'" 

;we found a framing pattern,, set the indication and break out to proceed ' ' 

" . bset #4. y: <inpstat " - .-indicate the match . . 

enddo ;end .y:<synccnt loop 

■ enddo. -, ' - ' ./ . ;end #24 loop 

jmp :_auto^65 '..-^ ;we matched the pattern . 

_aut0_4S. •''•v";' 
;try the next framing .pattern- 
moire. . ;(rp)^-'. " • 

;try the next bit for a match, of a framing pattern 

" asl ■ ■ a .\ ; (rl)+- . ' ■ ;shift left into al 

& increment the bit /shift counter 

_auto_65- . ■ ■ 

;if the pattern was not matched,. .; ■ 
; set the. next word as the offset 

increment the address for. the next word 
; exit the interrupt routine and wait for . a new 2nd word to check 

clr a (r2)+ ; zero the sync 'ed frames counter 

. ;& incr count of words looking for sync 
jset #4,y: <inpstat,_auto 75 ;if match, set up to check.next frame 
move y :<syncwrds,a " ;get number of words per frame 

move »>FRAME OVERAGE, xO ; to add some cushion to frame length .. 

add xO,a 'r2,x0 .: . . ;add cushion .to frame length : 

k get words checked so -far 
cnro xO.a r4,y:wrdoff -test. more than frame checked for sync . 

save, possible new start word offset. 

;if more than a full frame has been searched without finding SYNC; . 
- we failed at framing, at this, sampling/bit rate ; 

ilt • ■ auto 155 ' ;indicate failure at sample/bit rate 

move x: Cr47-f ,al' ' . * . ;set new 1st word to check (incr ptr) . 
jnip: "/_auto_CC " ; try new 2nd-.w6rd: 

_auto_75 . ' . 

;frame matches a sync pattern: , 
; update the sync 'ed frame counter.. .. .. 

; save the sync pattern match index to test for padding or not 
; Store the new bit offset to start this frame.;..;- . 

set the address and of f set for the next frame ; ; 

see if padding needed, ..• 
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move a,y:<synced 

move rO , y : csyncmtch 

move rl/y:bitoff . 

move y:wrdoff,rO 

move y:frtnemod,raO\ 

move yi<8yncwrds,nO ; 

move, y:bicoff,a 

move irO)*nO 

move y:<syT;cbics,xO . 

add • • -.■ .X0-, a #>PAD_SLOT,xp-.; 

j c 1 r # 0 , y : < synsmt ch , _aut o_B 5 

add " '....xO, a. ' / " • .. 



/Update the sync'ed frame counter 
;save matched pattern index ^ . . 
; save the bit..offsct ' • 
; address start last frame 
;set circular buffer . \ 
/words to next frame 
;get the bit of f set start 
/address for- next .frame start ' 
;get unpadded frame extra bits. ' 
; add extra bits to offset ... 
; & set upo for any neede padding 
; match index even.. NOT padded. 
; add. the padded bits 



^auto^BS ". ; ;■. . ■ • 

; see if bits exceeds full . word and adjust 



move 
cmp 

sub 



«>24,X0 
xO,a 

_auto_95 
xa.a (rO)- 



;24 bits per word 

;see if next address needed 

;if offset within word, continue : 

/adjust the bit offset by full word . 

/ & increment the start address 



_auto^95 . 

;set addrests and bit offset to match the next f ramie 



move : 

move 

move 

move 

move 

bclr. 

rts . 



rO,y:wrdof f 

a,y:bitoff 

(r4)> 

y: linear. m4 . 
y: linear. mO 
#5.y:<inpstat 



/start next frame word address \ 
./Start next frame bit off set . 
/advance the write pointer . 
/restore as a linear buffer 
/restore as a linear buffer 
/clear reached frame indicator. 
/BEN - exit .rtn and wait, for next frame 



_auto_l05 

;if ready to check the new frame as it comes in ' , 

/ . test if expected frame start address has been reached ^ . \. ^ 

•f aos set indicator to check the next word received (2nd in the frame) 
] * .'otherwise, keep accepting frame words into buffer 

i*v"check for the pattern ih the 1st and 2nd word (latest received* 



jset 
move 
move 
crap 

jne 



#5 , y : <inpstat ,_auto_115 
r4,x0 

y :wrdof f , a 
.xO,a .. ..(r4)'»' 

auto 155 



;to test if frame start addr.hic 

/address to match 

/see if address hit' 

; & increment the write pointer 

/if notr frame length problem . 



/we have the 1st word of the frame ■ ' 

; set indicator. to check 2nd word for framing pattern 



bset-. 



#5.y:<ihpstat 
auto CC 



/indicate check next word for patter 
/•to check .2nd word-.: .. , 



auto 115. 
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;we now have = he -2 words, co check this frame for framing 

' .. clr ■ a ■ .#>l,xl ;clear the register to align pattern' 

& set ro increment frame match ,coun 
move x:(r4) -,a0 - ; retrieve 2nd word (back up tc. 1st) 

move x:(r4)*,al. . . .-retrieve .1st word ; forward: to 2nd) ; 

;if .a bit offset, shift over the expected bits to align the ..pattern". 

move y:bitoff ,b ' ; to 'see if" a shiff is needed- 

est • 'b- . - .fSee if zero' • 

•. jeq • _auto_125 • Z. : :tt, so, skip -the shift " 

;shift:ie,ft. to -align pattern in; . al ' 

• *: do . " b,_auto^l25. ■;• . 
• -asl V / ' a. * . 

_auto_125 -■ ' ' ■ V 

;see if current offset contains a valid sync pattern 

move ai.b test shifted pattern from frame 

• move #syncptrn,nO ;addr of. array of sync patterns. 

. . move «0,rO. ; offset to 1st pattern, 

v -bclr #6,Y*<^»P^^" ..-indicate no match yet. 

; loop. 'through the avjaiiable sync patterns . 

• do "y:<synccnt. auto_145 - ' . ^\ ■ 

move y: (rO+nO) .xo ■ . ;get the next sync pattern to check 

cmp xO.b ;see if pattern matches . 

■ ' 3ne '_auto_l35.. . . . ;if not. try next .pattern 

iwe found a framing pattern, set the indication and. break out to proceed .. 

bset #6.y:<inpstat • .-indicate the match, 

enddo . ..-end y:<synccnt loop. 

• jmp { _auto_145 ■ ; we matched the pattern 

_auto_135. ■' ' 
■try -the/ next framing- pattern , 

' '■•■"move. '"• (rO)*". ^-^ ■ ' ' 

';.^auto_l4S . "I'V ' ' 

;if not a match,, we are- not framed, try again via. frwnit lor autosmpl.rtn ^ 

/Vjclr'- M.y.:<inpstac..auto.l55y 
;we did natch a framing pattern = 

■ ' move' •y:<synced.a' . ". rget count of frames sync'ed so, far 

- add XI. a y:<syncfrras..xl.. .; increment count 



& set' ,fo test if limit reached' 
, see if sync frame count reachec 
; & set the bit offset register 



. cmp . xl.a .-; '.y:bitoff,rl *" ' *. f^!!^w- f^IIIf 
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jit 



autc 75 



;noc at limit, gc set 



up 



.rame 



;we are now considered framed 
■; ■ indicate OK' ' . 

; put bit offset for this new frame in proper register 
! . put address offset for this new frame in proper register 
; set the data gathering correctly 
exit the interrupt routine . 



, clr..,- 

move 
. move 
move 

...sub 

move 
? ;. . move 
move 

■• jmp 

auto 155 



a : #>l.xO 

yrbicoff ,r3. " 
y:wrdoff ,b 
Hsyncbuf.xl 
XI, b ; ! ! !BEN.: 

b,y:wrdoff , ■ 
b,r5 •, 
xC, y:<inpstat 
auto 160 



(r4)* 
: I !BEN 



;a-0 indicates we're framed 

& set to set flag to gather data 
;r3 is expected to have the bit offset 
/address of the last matched frame star: 
.; starting address of . input buffer'^ 
..•calculate the start, offset into buffer 
; & increment the input wire pointer 
;save buffer address start word offset 
;r5 is expected to have address off set 
;sec flag for normal data gathering 
;done with auto sample this sample rate 



; failed to frame, indicate to the framit or autosmpl routine to try again 

bset ; #8,y:<inpstat 
_aut6_16b. • % • \ •• ' 

; ! ! !.3EN:p€5rform old ssirec auto sampling on current frame . 



. jset 
jset 



#0.y:<inpstat,_auto_90 ;framing found 

#8,y:<inpstat,_auto3l.OO .-conclusion has been as not framed 
^auto^ao , /continue waiting for result 



auto 90 



; we have successfully framed the correct number of frames in- a' row 
; and therefore we found our sampling rate 

;.!!.! BEN enddo . ;end «NUMSAMPLRATES loop 

bset #AUT0SAMPXiEPR0CES5«.y:<process ; indicate auto sampling done 
. clr ■ a. /indicate success to caller. 

■ move .- -y:linear,ro4 " /.restore as a linear buffer 

' . rts-.' ■ /return with sample .rate found. 

* auto. 100 ■■ 



s ■/ 



I !BEN • •■ ■ ■ . 

/we did not frame at that last sample, rate, try. the next one 
/turn off the interrupt . system -:; * 



; ;. 



ori. 

nop. 

nop. 

nop 

nop 

nop 

move 

move 



«S0.3,mr 



x:srchtries,xO 



; number of tries at sample rate' 
./number of tries at sample rate 
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move ■ #>MAX_AUTO_TRIES,a ; ■ ;gei tolerance ctr '* 

cmp xO,a . .. ;see.if cime to try next sample rate 

3gt ; _auto_70 ;npt yet make another try . 

; see if the pass looking for frames with privacy bit not set . 

move ■ "'#privacybit,r3/- " - * ;addr of privacy bit flag ' . 

jset . .■#0.y:,(r3) ._auto_108 V. jif tried privacy, check protection 

;now try looking for a frame header with the privacy, isit set 

. move #ayncptrn,r3 . . /modify table .'of syn patterns . . - ' 

bset «0,y:privacybit . . . .-indicate privacy bit set . 

. ;for the number sync patterns set the. privacy bit set 

do ■ . y:<synccnt, auto" 10 iz • 
bset ,#0,y:.(r3)*."- 

^auto_102 

;restart the attempt counter . for the new sync patterns . 
move #0. r3 

move . . rO,x:srchtries ; ■ ..-zero the failure counter 

jmp _auto^70 . . ;now make tries with privacy bit set 

_auto_108 ' ■ 

;see if the pass looking for frames without CRC protection was done 
if so, try -next sampling rate 

jset . .#p,y:<protect,_auto_800 ;if no CRC done, try next sampling rate 
;now try looking for a frame header without the CRC protection 

move #syncptrn,r3 . ;modify table of . syn patterns 

bset . #0,y.:<protect . ..-indicate NO CRC protection-- 

bclr #p.y:privacybit ; reset try with privacy bit., set tc .6^ 

; for the number sync patterns set the NO protection bit 

do- .. ■ . y :<synccnt ,^auto^ll6 • 

bset- #8.y:(r3) - • . . .-set the protect bit ' 

bclr. #0>y:(r3)-f . . .-clear the privacy. bit 

^autb^llO ' 

.•restart the attempt counter for the new sync patterns . .. 
move #0.r3. ■' / 

move rO*x:srchtries .-zero the failure counter 

jmp ^auto_70 .;now make' tries without CRC bit 

; 7/12/94: added label to skip to next sampling ratie if not applicable 

■■_auto_800 

;this sampling rate did not match, .try the next table entry'. 



SUBSTTTUTE SHEET (RULE 2P) j o^GlNAL 



WO96O2805 PCr/pS%/04835 



-138- 



!3EX 



move 
move 
nop 
move 



y : <svereg,,rO 

# AUTOBYSAMPLE , nO 



;rescore sample cable address 
.;set auLo sample offset to next rate 



{rO)-»-nO /advance to next sample rate 

!!IBEK: increment the current sample rate table index to. try next sample rate 



. bclr #AUTONEXTFRAME,y:<process . ; to- start next sample rate entry 

move x:srchrate,b • .;Co increment cable. entry 

move • #>l,xO'- • - vincrement 

add. ■ xO,b . #>NUMSAMPL£RATES.xO . ; increment search index 

".; & get. max table. -entries count, 
cmp. xO,b - : b.x:srchrate ..-see ■ if table... totally searched 

'; &. in' case, save 'new search index ' 
jit. - ,. .-^auto^AA .\ '.' ■ rif •less than max. cry new table: entry 

__auto_900-" . 

;we failed tc determine the sampling rate, indicate failure to caller 



bset 
move 
move 
rts 



#AUTOSAMPLEPROCSSS.. y : <process ; indicate auto sampling done 

l^>.l,a . /indicates failure 

y: linear, m4. . ;restore as a linear buffer . 

. ; return. CO caller .. 
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;-(c). 1991. Copyright Corporate Computer Systems, Inc., All rights reserved. 

; \URDCDSYN\getancda.asm: BEN y:<iinear, y:frmemod{inpsize). 

; this routine decodes the ancillary data bytes for output to rs232 i/f . 

; on entry ..• 
; ■ r6 » current offset in output array • • 

;. . : . y:dataiptr « address in data byte input buffer to start" from' * 
y;bytecnt - count of bytes in input buffer .not yet transmitted' 

; on-exit ■ • ' . ; 

.;■ ■ 'a •■ destroyed 

; ■ . b a destroyed ..> :■ ■ . • • .. . 

. yO - destroyed. ./ • ■ • ' 

. yi -.. destroyed 
;- ■ ■ . rO ,» destroyed : ' ' . ■ . ■ - - • 

; ' .• ' rl « destroyed: 
.. r2 - 'destroyed 
; ■■ r3.« destroyed "■. . " . ■ - 

;■ ■ ■ r4 ■ destroyed " • ' - ■ 
;■ . -n4 a de^stroyed 

-' include- 'def. asm' 

include . .\eoramon\i6equ. asm' . . 
include, 'box ctl .asm' ' " •.. 



section bytebuffer 
xdef databytes 



•org yii: 
s t ge t ancda^y 1 i 

databytes . ds . 

endge t ancda^y 1 i 
endsec 



DATABUFLEN 



/buffer, for byte is received 



section 


highmiisc 


xdef 


anctype 


xdef 


baudrte 


: xdef : 


dataiptr 


• • xdef • 


dataoptr 


• ' xdef 


bytecnt 


xdef- . 


maudsytes 


xdef . 


saveaO 


• ■ • "xdef . 


saveal 


• ' • . xdef. • ■ 


savea2 


• - -xdef - / • 


padbytes;. 


org 


yhe : 


stgetancda^yhe 




ahctype 


•ds ... ■ .1 


baudrte 


ds^-; .--a- 


dataiptr 


ds 1 



;data baud rate code from switches 



;type of count field after audio data: 
;.' :*. . 0 ■ 3 bit padded byte count. 
,v ■ ■ 1 « ..8 bit data byte count 
.; data baud rate code from switches 
;ptr. for. next byte decoded from. frame 
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. ..- .. ;pir for next byte to .transmitted to rs232 • 

"dS -. 1 ; ■ ; . .. •; count of bytes yet to' . be output to •rs22'2 ' ■• ■ ' 

ds .' .1 . ; /tolerance check of bytecnt for acixmt 

ds- -■• • • 1'. .-. •■■.■;save reg aO for scixmt 
ds,/. • •. 1 .;save'reg al for scixmt '/ 

ds; ■ . 1 .;save reg-a2 for scixmt'. ■ • 

ds.. . : ■■ i •". ■ ;hcld pad 'bytes;' from, the' frame 

endgetancda^yhe; ; 
. 'endsec 

■ ; org ■■ .■ phe r 

..getancdata ^. ^ 

;clear the ancillary data problem for old CCS f raunes . 

hclz-'.; #.2,y:oldccs ■ [,■■'':■-:■'':'.'•/'• . . ^ ' 

;set address of type of count to extract: 

; . padded bits byte coun^ OR data byte count 

move #anctype,r4 ;addr of type of count field 

;do not decode ancillary data from a reused saved frame 

jsct. #USE_SAVED.y:<ctlf lgs,_^ancd_90 ;if not reused, continue 
;8e€ if data byte count, and if so, read byte count and then bytes . 

jset #0,y; (r4) ,_ancd_78 ;if byte count, get data byte count. 

. ; set the end of the MUSICAM portion of the full frame values . 

move y;frendwd,rO ;normal MUSI CAM frame last word address., 

move y:frendbt,nO ; normal MUSICAM frame last bit offset 

move y:frmemod,mO ;set circular buff to addj addr 

move mO.ml ;set circular buff to addj addr 

move ♦»>-l,xO . ■. .;init the pad • bytes ■ value' 

move-. xO , y : padbytes . ■ .' 

;te8t if room remaining. In the frame to read the CCS ancillary data pad 
;; byte count 

move . rO,rl .' " " . ;get addr - of last" word ' into proper reg ■■■ 

■ move." '-rC.a.-. ' .;to teist next addr to decode - 

move ■ (rl>* , . ;tp. see if last word being decoded 

move rl,xQ ;to test last frame word address 

' cmp xO,a «>BITSFORPADDING,xl ;see if about to decode last ' 

• ; &, set. numb bits in pad byte cnt • 
jne _ancd_OC ■ ;if not, test room from curr decode word . 

.'decoding of the last word in the frame is in progress, 

; see if sufficient bits remain to get. the padded byte count 

' '": -move ' M>2A,b '■■ "'^/get bits per word \ 

'■•■.■•■..■■•■'move ..y:<sc,xO' • •• ..'**9.*t undecoded bits couiit' in last' word '. 

•'•-'sub ' -xO.b ■. nO.xO • ■•;calc bits decoded from last word so far' ■••'':•. 

; t get total bits, in that last word 
lieg. '■ • b- ;niajce bits already decoded negat.ive .. .. 



dataoptr 

bytecnt 

maxbytes 

saveaO 

88 veal. 

8avea2 

padbytes 
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. add 
cmp 

■: : idbg 3lt 

. ■■ 39* ■ 
■■ nop: 
* nop. 

- ■ .;•. •*. nop ■; 
nop 
■ . nop ' 
jmp 

ancd 00 



x:,b 
ancd B5 



ancd 65- 



;add rc^al biwS in las^ word •■ 

.-see if enough bits remain 

;if not it's not CCS, no ancillary daca 

•J if sc.. do ancillary data 



if not if s, not CCS , no ancillary data 



rtest the next to last wprd address to , test . remaining bits - offset tcj- last 



move 
move 
cmp 

jne - ■ 



iri) - 
ri,xO 
xO , a 
ancd 



05 



;back up to next tc last word addr, 
;to test next to last vs next addr . 
;see if next is next tc last 
;if not at next tc last, dc ancillary 



; see. if remaining bits 
plus the number of 



move 
move 

; ■. add 
. cmp 
!dbg jit 

jg« 

nop 
• nop 

nop. 

nop 
: nop 

:.«p 



y : <isc, 
nO,xO 
xO.b 
xl,b 
. ^ancd^ 
"ancd 



; m current I next to last) word. being decoded ' 
bits in the last word have enough bits for pad byte en t 

u ;get undecoded bit cnt curr decode word 

; get total bits in that last word 
;add total, bits to remaining bits cnt 
. ;see if enough bits left in the frame 
oe ' -if not. it's not CCS no ancillary .data 

05- ■ • ■ ■ Uf so. do ancillary data 



ancd 65 



•if not . 



it's not CCS no ancillary da: 



_ancd_05.. 

..;gct the count, of pad audio bytes from the frame 



move 
move 
move 

jsr 
move 
and : 



move 
move 
tst 



«mas)ctbl.r2 ' . 
« B ITSFORPADD ING . n4 
'•n4..n2 
get value 
y: (r2*n2) .Xl 
xi.a . nO.xO- .. 



al , a 

a/y :padbytes 



y:dataiptr.r5 



ancd;.4G 



;numb bits in pad byte. count 
;aet ^.i order bit mask index . ; 
: get pad byte count from frame 
' Imask off high order . one" s . 
jmask off high order one's 
• t.set end of frame bit offset 

.♦clean up for a zero test ... — 
;save the : retrieved pad byte count 
.test, if any pad bytes included 
; 4 set addr of next byte to be stored 
•;no pad bytes in frame... go decode aata 



;adjust end cf -frame for padded bytes. (8 bits per;^ytei 



move 
■■■ move ■ 
mpy. 



#>B.xl- ■ 
al-.yl 

xl.yl.a #>24.xl 



; set up bits in a data byte 
;get count of pad bytes . , 
;mult by 8 bits per byte . 
; & set bits. per word 
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"asr 


^ ; a ■ ■ rS.b.' ■:/ 


move 


ap,a' • 


^ancd^lO . 




" • .. crap 


xl , a • 


: . jit 


_ancd_20 ■ 


move 


rO,yO~ . 


cmp 


. yo*b = 


; li Idbg jeq 


, _ancd_89. 


jne. 


. ^aricd^lS " *'■ ■*■ 


nop 




nop • 




nop * 




nop 




noD 

.... 


;. ^aincd^89 


■ : : .'ixap 


jancd IS .. 




'7' "■ .'sub- 


..'.xi,a • ' •■(rO) -;: 


jmp . 


. '_ancd_10. 


_ancd_20 




;now back off 


Che number of bits 


crop ■ 






ancd 30" 


move 


■ r6/b ■• 


•cmp ■ ■ 


yO,b ; xO,b 


; ! ! tdbg jeq 


__ancd_89 


jne .. 


•3ancd^2S \ 


. . nop . 




nop 




nop 




nop 




■ •. nop 




/ jtr^ 


_ancd_B9 


ancd 25 




" • • add 


.[ xi.b 'v (rO).- 



; align integer result 

get. next decoded w: 
; shift integer result 



ird addr 



..;if a full word of padding remains 
■;.if not, go adjust the bit offset- 
;to see if at next decode word . ^ 

,;see. if next tc decode reached' ■ 

';if so, no data to decode 
; i f ' not . . keep checking • • 



;if so. no data to decode 



;sub full 24 "bits; •-. 

St back off one word in. end address 
;try again _ 



roffset vs rest of pad bits 
; Sl offset to b reg for adjustment 
; if less or equal, don't adjust 
; get next decoded word addr: 
;see if next to decode reached 
; & offset to b reg for adjustment 
;if so, no data to decode 
.;if not. data to decode 



;if /80. no data to decode 



; adjust of f set by bits for full word 
; & back off one more word address 



_ancd_30 - 

.•adjust the bit. of f set by the remaining pad bits 



move 

sub 

move 



a. xO 
xO.b 

b. nO 



;g€t the remaining pad bits 

/calculate new bit offset.. 

;save apprpx end of anc data offset 



_ancd_40 ■ ■ 

; now get the bytes and. store in the buffer for the trasmit interrupt 



move . .JDATABUFLEN-l.mS ; 
move . «BITSPERBYTE,n4 
move" . "ni^ni • • 'i. 



.•circular buffer •■ ' 

; number of bits to. decode from frame 

;get hi-.. order bit mask .index 
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;■ ' ' move #C,r3 ^ /this is the decoded byte- ccur.^er " 

^ancd^SO- 

Tas long as there is room for a byte to be decoded, do it 

;curr next frame' word address ■' '..}■ . " ^• 
.;set up bits in a data byte 
.■ .;next frame word addr - 1 • • curr addr ' ... ■ 
. ;get frame end word addr 

;get end bit offset in frame end word 
. ; to. compare curr frame word to end addr. 
. ;is curr frame word equal end frame word 
.; fc.get bit offset into curr .frame word . 
.;. J if. not end frame word, try next to last." 

•since we've decoded into the last word in the frame. 

; subtract remaining bit in curr word from 24 to determine how many have. 
•i ' been decoded • ' 

subtract the used, bits from the .last word bits available 



move 


rS.rl •;; 


move 


||>BITSPErlBYTE.Xl 


move 


(rl) - . 


move ., 


rO.a 


move 


nO.yO. • • . ' 


move 


rl.xO • 


cmp 


xO,a y:<sc,b 


jnc 


_ancd_€0. 



move 
sub : 

sub 



#>24/a 
b,a 

a..b, 
ancd 70 



yO,b 



;bits per word to be sub from 
; subtract y:<sc from 24 to get used cnt 
; & get last word bits available. 
;sub used bit cnt from bits abvalable 
.;see if another byte can be decoded . 



^ancd;60.-.-' 

•since we have not reached the last frame word, we must .see if we're at 
i-the niftxt to last frame, and if not. keep decoding ancillary data bytes 



move rO, rl 

nop .■ 
move ■ <ri) - 
move rl. a 
cmp xO . a 
jne _ancd_75 



;end frame word address 
.•this pains me 

; back up to next to last addr . 
;for comparison 

;is curr frame word • end - 1 frame word 
;if not. decode the next data byte 



:w% have reached the next to last frame word. . J \^ 

; add bits from the last frame word to those remaining in this byte 

; if there is a byte's . worth of bits, decode, another ancillary data byte 

;add number of bits m last word 



add 



ancd 70 



cmp 
jit 



yO.b 



xl.b.. 
ancd 80 



;see if a byte fits in the bits lef t ■ 
; no more bytes, go update byte count 



_ancd_75 ■ 

; there is room for. another byte, let's get it 



jsr getvalue . ... 
move y: Ir2*n2) ,xl 
and ■ '-xi,a ■ (r3;* 



;retreive the. next byte from the frame 
;mask off," high order one's ... 
;mask' of f high order one:s 
t .incr byte counter .' 



.-insert the byte " into' the . transmit -buffer 
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'■■• move- ■■ al,y:(r5)'*. ;put the byLe,;out 

;test to see chat did not exceed baud rate byte count 

move r3,yb .; count of data bytes just decoded 

move y:maxbyces,a.. ;maxbytes tolerance decoded check." 

■ -. cmp . yO,a.;:" ;chec)c for frame alignment error ' ." 

jit ■ _ancd_85 .;slcip if too many bytes decoded . 

jmp Z^^^— 5^.. see if there is room for another . 

^ancd_78 ■ ■ . 'V'; -; . 

;get the count of ancillary data bytes, in the frame . 

move . .#BITSPERBYTE,n4 ;bits in the ancillary data byte . count 

. move «masktbl.r2 . ;set.addr of the masking table, 

move . n4,ri2 ; get hi order bit mask index 

jsr • • get value. *. ;get pad byte coxint .from frame ■ 

move ; y:.(r2-fn2i ;xl ;get mask off high order one's 

and xl,a #0;r3 . . ; ;mask off high order one's 

; & zero decoded byte counter 
.move ■ al,a' . • ■ ;clean up for a zero test- 

tst a y :dataiptr, rS . ; test if any data bytes included .. 

--■ ; .t set addr of next . byte "to .be stored, 
jeq _ancd_9p ; no data bytes in frame, we're dene, 

;make sure the data byre cotint is valid vs .the max bytes at this baud rate 

• . . , move y : maxbyt es /xb . ■ ;get maix bytes 9 baud rate 

cmp xO,a .. ;corap byte count from frame to max. 

. jgt . . _ancd_^85.- ; if number is too big. skip data 

.;now get the bytes, and store in the buffer for the trasmit interrupt. 

move . .«DATABUrLEN-i;raS . ;set circular buffer 

;get the count of ancillary. ;data bytes in the frame. 

; bytes are stored in the reverse order received by encoder. 

do . a/^ancd^80." 

;get. the" next- .ancillary data byte ........ 

-jsr - . getvalue .. • ;-retreive the next byte from; the frame 

" move. y: (r2-^n2) ,xl '/ .. . • .-mask off high order one's 
and . xl.a (r3)* ;mask off high order one's 

; & ihcr byte counter 

; insert the byte into the transmit buff er . ' 

'move • .-aLyrCrS)*- -■ ./ " /::; ,?put .the byte out . ; 

__^ancd_^80 • . • ' • 

;temporarily'disable the interrupt. for data received 

■ ■ ■ bclr'^ .- «M_TIE,x:<<M.SCR;;. 

• .■ . nop ..: . / ■/ ' ./ ■ . . ; ' ' . • • ■ . 

V •* . nop.; - : ' ■ . ; ... ^ ' y *; 
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" : nop ■;• ' ■ ■ - • ■- .. . ; • '. ■ I • V - ■ 

;while waiting for interrupt to take effect: ^ ■ ■ ' 

make a tolerance check of the frame's alignment to make sure 
!• we haven' t decoded more data bytes than is possible • 

if we have decoded too many bytes, 
; skip, the junk. just, decoded by ignoring the results of this frame . . 

move . ri.yO* . - * count cf data bytes 3 ust decoded • 

move yrmaxbytes.a . ;maxbytes tolerance decoded check... 

cmp = yO,a y;bytecnt/a . ; check for frame alignment error 

; k get latest byte cnt of unsent bytes' 
jit ancd_85 ;skip if too many bytes decoded 

: interrupt should now be disabled and we can safely update count of unsent bytes 

add .. yO.a r5. y :dataiptr . ; add count of bytes just framed 

; & save addr of next byte next frame . 
move a,y:bytecnt : ; save new unsent byte count 

■jn^ . . -^ancd^es .-reset interrupt 

_ancd_e5 

; a problem decoding ancillary. data may indicate, a stream; of frames from, 
some . other -manuf acturer 

.\ ^^if the frames are from a CCS encodier that is encoding old CCS CDG200C ; 
. two-channel frames at a low bit rate that, is incorrectly using 
the wrong allowed table BUT. has an old CCS CRC- 16 checksum.. 

.■ ;!i!dbg 

nop 

• nop ■ • • ■ ' 
•nop- 

nop ; •'*■■•*.■'.■.;■ . v .; ■ ' 

■ ■ ■ nop " ■ 
';*!'! dbg 

jset #CRC OLD vs NEW. y : <cti figs. _iancd_89 ; if ISC CRC. continue 

^■;::idbg;- 

nop 
nop 

' nop '■ . ' . ' 

nop 

nop ■ ' ■ , . 

• • • » * dbo . 

bset" ■■' •*#2,y:oldccB- ; show, problem to switch ■ to old CCS ■ 

* ^ancd^BS \ 

■,-tum the transmit byte interrupt .back on . 

- bset #frTIS.x:<<f^SCR' ■ ; V renable; transmit ' interrupt ■ • ^ 

' ;return after all "bytes decoded and counted' 

■ ^move ' y:linear,»o' ■ ;uncircular buffer. . 

.move..', mo, ml -.^ ■ • . : : ;uncircular buffer ■ 

■■move • ■:m0;tn5- •. :;uncircuiar buffer ■ ; 

'■■ ancd 9C^: 
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op: 



,10*1991. Copyright Corporate Compueer Systems, Inc. All rights reserved: 

\TODC0SYN\getbal.a3m: BEN y:<frmtype y:<aibound; 

title' :'Get bit allocations;; 

This routine is used to get the bit allocations' of each of the sub-bands. 

: It is from the ISO standard. ', 
sub-band 0 - 10 use 4 bits (11 ♦ 4 ■ 44. bits) 
sub -band 11 - 22 use 3 bits (12 * 3 - 36 bits) 
sub-band. 23 - 26 use 2 bits ( 4 * 2. • S bits) . 

.'.■■( total « .88 bits). 



on entry ' •■ . 

rO » address of bit allocation array for both left and right channels 

r6 -current offset in the input- array. 
n6 « base address of the input array 

y:<raaxsubs • MAXStJBBANDS at sampling rate and bit rate . . 
y:sc = shift count of current input word 



y :f rrntype 
y:sibound 
x:crcbits 



full stereo, joint stereo or' mono 
joint stereo sub-band intensity bound 
accumulator. of bits covered by CRC- 16 routine 
(bit allocation bits are accumulated) 



;. 'on: exit • 

f rfi • updated 

; . y:sc « updated 

' ■ ■ • . 

a a destroyed; 
; b « destroyed 

; . xO a destroyed 

'; . . xl » destroyed 

yO « destroyed , 
.' yl « destroyed 
;. rO = destroyed 

rl » destroyed 
; " r2 "destroyed . 

;. -4 » destroyed 

; n4 » destroyed : 

include 'def.asm' 

' section highmisc 
xdef ; masktbl 

'■-■-xdef tbl -. ■ ■ 



■ . • org -. 
stgetbal_yhe 



maslctbl 



dc 
dc 
dc 
dc 
dc 
dc 



yhe: 



soooooo 

SOOOCOl 
SO0OC03 ' 
S000007 

sooooof 

SOOOOlf 



; place holder in mask table 
;mask table for 1 bit getvalue 
;mask table for 
;mask table for 
;mask table for 



2 
3 
4 

. ;mask table fcr 5 



bit, getvalue 
bit getvalue 
bit getvalue : 
bit getvalue 
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$00003f 


dc' 


S00007f 


dc 


SOOOOff 


dc 


SOOOlff 


dc 


. $0003ff 


dc 


$0007f f 


dc 


SOOOfff 


dc ' . ■. 


. SOOlfff, 


dc ., 


. $003fff 


dc 


. $007fff 


dc . 


; sooffff -.. 


dc 


soiffff 


dc 


■ so3ffff ; 


dc 


$07ff£f 


dc . 


SOf f ££f 


dc 


Slfffff 


dc 


S3ff fff. 


dc 


S7fffff 


dc 


Sffffff 



;define data £fize table for 
tbl-: 

dc $000600 
dc $000001 . 

dc .. S0O0O02 

. dc . $000004 



dc " 


$000008 


dc 


. $000010 


dc 


. $000020 


dc 


$000040 


dc 


$000080 


dc 


$000100 


dc 


$000200 


dc 


. . $000400 


dc 


- $000800 


dc 


$001000 


dc 


. $002000 


dc 


$004000 


dc 


$008000 


dc 


SOIOOOO 


dc. 


$020000. 


dc 


$040000 


dc 


$080000 


dc 


$100000. 


dc 


S200000 


dc 


$400000 


dc 


S800000 



endgetbal_yhe 

. endsec '. 

section highmisc = 
xdef .. skftbl 
xdef skftbl 1 . = 
xdef skftbO 
xdef s)c£tbl_3 

•. org ' . •■ .xhe:'- •" 
. stgetbal^xhe . 



; ;masK table .for- 6 bit getvalue .. 
.; mask table for 7 bit getvalue 
/mask table for. 8 bit getvalue ; 
;mask table for 9 bit getvalue 
;raask table for 10 bit getvalue' 
. ;mask table for 11 bit getvalue 
■;. ' ;mask table for 12 bit. getvalue 
;maflk table for 13 bit getvalue 
;mask table for 14 bit getvalue. 
;mask table for 15 bit getvalue 
: ; mask table for 16 bit. getvalue 

;mask table for 17 bit getvalue 
-;mask table for 18 bit getvalue 
.-./mask table for 19 bit getvalue' 
;mask table for 20 bit getvalue 
;mask table for 21 bit getvalue 
;mask. table for 22 bit getvalue 
;inask table for 23 bit getvalue 
. /mask table for 24 bit getvalue 

the getvalue routine to extract data 



;bits - 0. place holder 
; shift left 01 bits 
/shift left 02. bits- 

. ;shift left 03 bits . * 
; shift left 04 bits" 
[■:■ ; shift left 05 bits 
; shift left 06 bits 
;shift left 07 bits 

• ;shift left OS bits - * 
;shift left. 09 bits, 
;shift left. 10 bits 
;shift left 11 bits 
;shift left 12 bits 
;shift left 13 bits 
■;shift left 14 bits 
;shift left 15 bits 
;shift left 16 bits 
shift left 17 bits 
. .-shift left 18 bits 
;shif t left 19 bits 
;shift left 20 bits 

.; shift left. 21 bits 
; shift left 22 bits ". 
; shift left 23 bits 
; Shift left 24 bits 
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/address of BAL's bit table as per Allowed table selected 

skftbi'." da-: -.X. • 

;The8e tables is the number o£ bits used, by the scale factor in each siib- band 
; High sampling rates with higher bit rate framing; 



skftbl 1 



dc . 


4 


dc . ; 


4 


' dc . 


4 


.dc - ■ = 


4 


dc : : 


4 


dc • 


4 


dc 


. 4 


.■ .dc .• 


4: 


•dc" 


4 


dc 


4 


dc / • ' 


4 ■ 


'.■ dc •■ ■ 


3 


dc ■ 


3 


dc 


- 3 


dc 


3 


dc 


3 


dc . 


3 


dc 


3 


.. ■ dc- 


3 


dc . 


3 


dc 


3 


• dc 


3 


dc ■ • ■ - 


3 


. dc -. ... 


2 


dc ■ 


2 


dc 


2 


dc 


2 


table 3-B. 


:2a 


■ dc 


2 


dc ■ 


2 


• dc - ■ 


2 



;end tfable 3-B.2b. 



dc. 
dc. 



2 

'2 



;8Ub< 
;sub' 
;sub: 
;SUb 
;SUb 
; siib 
;SUb 
;sub 
;sub 
; sub 
;SUb 

;sub- 
; sub- 
;SUb- 
; sub* 

; sub- 
;sub' 
;SUb- 
;sub 
;8Ub 
;SUb 
;SUb 
;s\lb 



band 
•band 
•band 
-band 
-band 
•band 
-band 
'band 
>band 
-band 
-band 



0 . 

1 

2 

3 

4 

5 

7 
8 
9 

10. 



band 11 
band 12 
band 13 
band. 14 
band 15: 
band 16 
band 
band 
band 
band 
band 21 
band 22 



17 
18 
19 

2 b 



; sub -band 23 
sub- band 24 
; sub -band 25 
; sub -band 26 

•sub -band 27 
; sub -band 28 
; sub -band 29 

;s\ib-band 30 
; sub-band 31 



High sampling rates with lower bit rate framing 



skftbl 2 



• dc . 


4 


• dc •■ 


■' 4 - 


dc; 


3 


: dc 


3 


■ dc 


3 


• dc----- 


3- 


dc: ■ 


• 3 


dc 


3 



; sub -band .0 
; sub -band 1 



; sub -band 
; sub - band 
; sub -band 
; sub -band 
;stib-band 
;sxib-band 
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. -end table 3-B.2c 

. ■• dc;. 3^ 
• ■■ • -dc-- ■■. 3 
dc. . '.3^ 
. dc 3 
V ;cnd cable 3-B.2d : 



dc 


3 


dc 


3 


dc 




dc 


• . 3' 


-dc. • ■■ 


3 


dc. 


■ ■■;-3' 


dc 


3 


dc : 


.■■3-' 


dc-. * 


3 


dc 


3 


dc 


3 


dc ■ 


3 


. dc ■ ■ 


3 


dc 


•.■.'.3 


dc 


3 


dc* .*. 


3 


dc ■'. 


3 


dc , 


3 


dc . 


3 


dc ' 


3 



; Lo.W .sampling races 
• s»cftbl_3 : - .. \ 



" dc 


••4 


•. dc - - 


■ 4 ■ 


dc • 


4 '■• 


dc 


• 4 . 


. '. dc. ■ 


' 2 


; dc 




dc . 


■ ■ .3 


dc 


3 


dc 


3 


■ dc. 


3 


dc 


. 3-.-- 


dc 


.:2 


. dc . 


2 


dc 


• 2' 


dc 


..: 2 - 


dc 


2 '■ 


dc 


2 


.-•■'■dc 


2 


dc 


2 


■■ "dc"-. 


2 


dc : 


/' 2 


dc 


• 2 ■ 


dc 


2 


dc 


•;. 2 


dc 


■ 2v 


dc 


- 2 : 


• dc • 


2 


dc. 


• . 2' 



: ' • . ..150. 

;sub-band 8.' 
.; sub-band 9 
. ;6iib*band 10 " . 
•v. ;sxib-band" 11 

■ ;sub*band. 12 .'■ 
•=;.sub-band 13-. 
; sub-band 14 
sub-band ■ 15: -.■ 
7 sub-band" 16 ' 
..-isub-band l?--.-.. 
;sub-bahd 18. 
; sub-band 19 ; . . 
;sub-band."20. ■.' 
; sub- band 21' 
V; . ; sub -band 22 

.;sub-band 23 . ' * 
; sub-band 24. 
. ■ : ;sub-band 25.- 
. ;sub-band 26 .. ■ 
; sub-band 27 
. . . ;sub-band 28 ■ 
; sub- band 29.', ' 
; sub-band 30 - 
; sub-band ;31 



; sub-band 0 
; sub-band 1 
■; sub-band '2 : 
; sub-band 3 . 

; sub- band 4 
. ; sub-band 5 . 
. ; sub-band 6 

•sub-band 7 . 
,. sub -band 8 
; sub-band 9 
. • sub-band 10 

; sub -band 11 

; sub-band 12 . 

; sub-band 13 
• • ;sub-bamd 14 

;sub-band 15 

; sub -band 16 

•sub-band 17 
. . ;sub-band 18 1 • 

; sub -band 19,. . 
,:* ; sub-band 20 

; sub- band 21 

■ sub-band- .22. ■ 
;sub-band 23 

■. ; sub-band 2.4 •" 

■ sub-band 2S 
';;8ub-band 26 .•. 

?sub-band::27 . / • 
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• ■ • • . dc 
dc 

;end table 3- 

•• • dc^ 
• dc * 



B.l 



2*-. 
2 



• sub- band' 28 
; sub -band .29: 

•sub-band 30 
; sub-band: 31 



endgetbal.xhe 
endsec 



phe: 



; : a 
•; • b 



-1 wirh start of subband allocation table of bits in frame per sub-band 
no offset for right channel sub-band bit allocation values: 
left channel from.:, to (NUMSUBBANDS - 1) 

riaht ciiannel from NUMSUBBANDS to (<2 • NUMSUBBANDS) - 1) . 
-3 set with joint stereo sub-band boundary for stereo intensity: 
■= 4 (4-31J, 8 (8-3i;;.:i2 <12-3i} or. 16- {16-31). 



getbal 



move -.. . xrs'kftbl.rl . 

move- #mas)ctbl/r2 

move ^NUMSUBBANDS . nO 

move y : s ibound » r 3 

move . xicrcbits.rS 



rcffset for right channel 

;decr stereo intens sub - band ctr 

;get CRC-1€ bit counter 



•loop through the sub-bands extracting the left and right: (if applicable) . 
•bit allocation index values (y:<maxsubs -..fixed count of sub-bands framed): 
' a -^or current sub-band get the number of bits for allocation . index value 
; " and increment. address of the next sub-band bit cotint; 
• b get the bit allocation for the left channel al%ray» 

- i-' b register isolate the type of frame: full stereo, joint stereo or mono 
yO holds the mono frame type code for testing 
yl holds the joint stereo frame type code for testing 
see if the frame type is joint stereo and just in case, move the 
current stereo intensity sub-band boundary counter value for testing 
if riot joint stereo, see if this is a mono frame type 

if it is noint stereo: u*-. 
' tes- if the boundary counter has reached zero. . and 3ust. m case it has. 

restore the left channel bit allocation value to the al register 
3 if the counter is zero, go to copy left channel into the right chaxmel 
J: if not, go to extract thi full stereo right channel .allocation value 



d. 
e. 
f . 

g •.. 

h. 



do y:<raaxsubs,_getb_40 

move x:(rl)*;n4 

move 'n4,n2 =■ 

move n4fn5 

jsr . getvalue 

•move ■ ■ y: (r2*n2) ,xl ' 

move (rS)-»-n5 . , . 

and xl.a : y:frmtype.b 

move al. x: (rO) 

move. #>MONO,yO 

move #>JOINT_STEREO,yl 

cmp.- •.;^-yl,b -rS.a- 

'■jne' ■ getb 10 ■ 

tst a " x: (rO) /al : 

• move .*. Tr3) - 



.;get # of bits to read 

. ; ge t hi order bit mask index 
;to accumulate aiC-16 bits 

■;get a left Chan bit aliocatior 
;mask for high order one's 
;accum bits for CRC-16 rtn 

. ;ma8k off high order one's :. 
; & set. for frame type compare 
;set left channel 
jck for no right channel . 
;ck for intensity sub- band .'• 
;check for stereo intensity 

■;if hot. sec if moric 
.•reached bound, restore left vi 
♦yes, left val to right val 
;nc. deer intens sub -band cntr 
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jmp 



•test fcr a mono type of frame and just in case it is. set al 
; for* insertion into the right channel for consistency 
'••f it is mono, go to move the right channel value 
^otherwise, ■ fall through to; full stereo 



and- retreive right chan value 
,c zero ' 



cmp 



yO.b #0,al 
_getb_30. . 



iif. monc^ insert p' fcr righ 



!full stereo, extract the right channel bit allocation value 
jetb_2C 



:sr 
move 
move 

"and" 



get value 
y: *r2*n2: ;.)cl. 
;rS)*n5 
xl , a : ■■ 



•insert the right channel value "tnO.cf f set?: 
'; increment for' the next sub-band 



_getb_3C 



nove 
move 



al,x: (rO*nO? 
Crb)* . 



;get a right chan bit al location 
; mask for high crder one ' s 
;accum bits for CRC-16 rtn . 
;mask off high order one's 



; right channel sub- band alloc 
;incr fcr next sub- band 



._ge tb^4 0 



Fi**! the unused sub-bands with 0 bit allocation 

This allows getdata to process. these sub-bahd« normally and insert o 
data in them. • . 



• • clr . 
move 
sub 

• dc 
move 
move 



_getb_50 



move 
rts 



a «>KXJMSXJBBAKDS,b 

y : <maxsubs , xC 

xO.b 

b. getb_50. 
a,x: <rO-»-nO). " 
a,x: (rO) ♦ 



r5,x:crcbics 



; current MAX5UBBANDS - 
; equals unused sub * bands 

; right channel 

;left Chan & incr for next 



;■ store updated CRC-1€ bit counter 
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opi .-• *r,mex■.• 
; IcJ 1995. Copyright Corporate Computer Systems, inc. All rights reserved. 
/ .\OGCST\rmicrmus .asm: with Reed Solomon decoding" " 

• title. 'Main'.-- '^.:' ■ ';' • 'V.', . ■ . • 

2'?/4/93- rmicrmus.asm version cf cdqZOCO MUSI CAM (rdcdsynt .asm) for. micro.. 

»«**««««****«****#*«**^ 
»«****«««»«««*«««««*«*^ 

1 oe/2€/9i: . (dsb fi"lwh) ■ . 'v .- 

; NOTE: Never use iB4 to control a circular buffer: The interrupt routine. 
; .. . * ssirec.asm has been sped up by using m4 and then restoring it : 
■; * ' to a linear buffer. 



;. This routine does it all for the decoder: 

• • ' 'inciude Vdef.asm' ." 

include ' . .. ScommonViocqu .aism*', 
• include 'box^ctl .asm'.. ■ 

-section highmisc • 

• xdef . SBndSKF. ' " .• , ■ . 

xdef ' ASMData' ' • . ,' ?set A cf .192 inverse quantized -.-.tr 

"org jche: 
strmicro^xhe-'; 

SBndSKF ds : Kt;MSUBBANDS*NPERGR0UP*2 .-left, & right sub-band scale factors 
ASMData ds ■ NUMSUBBANDS*NPERGR0UP*2 ;192 samples per 1 group of .3 samp*es_ 

for 32 sub bands . from both thar.ne-s 



endrmicro_xhe 
■ endsec 



section highmisc 

■xdef cheksum . 

xdef -frmsiie 

xdef f rmemod 

xdef frmhalf. 

xdef framesz 

xdef •■ oof, . 

xdef. voof 

xdef: poof 

xdef ■ doof 

xdef iPwrdoff 

xdef . IPbitoff 

xdef wrdof f 

xdef bitoff 

xdef . dcdfrmod 

xdef sveidbit. 

xdef sverate 
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"xdef- 
.xdef . 
■ xdef 
. ; . • . ■ xdef 
•xdef 
•xdef 
•■•.xdef 
. xdef 
■ : ' xdef . 
xdef 
xdef 
xdef ■ 
xdef: 
:- xdef 
■■■ xdef 
xdef 

' ' • 0 ^9 
strmicro^yhe 

chclcsum ds 
frmsize ds • . 
f rmemod ds 
fmihalf ds ; 
f ramesz ds 
; successive \ 
' : oof » 
vocf « 

; pOCf - 

... doof « 

oof 
vocf ds . 
poof . ds ; . 
• doof. ds 
IPwrdoff : 
IPbitof f ■ .- 
wrdoff . 
bitpff 
dcdirrnod 

; these are fc: 

,sveidfcit 
^ sverate . 

svestnpl 

sn^lcde; 
■ bitrate .■ 

. inpaddr ds 
\ f rmrate dc 



smplrte dc 
\ iputcde dc 
smplidtit . 



svesmpl '■ . 

srqpicde ^ [ 
bitrate . • - ; ■ y 

inpaddr. 

- fnnrate- ' • '.■ ;.■'•.•, v'- ' 
,, smplrte ■ " r -^ ' */. ■ ■■■■''■.■ 

...iputcde' 

sTnplidbit' /\ • 

■ • •maxsubs_l ^^ : \ r 
rnaxsubs_2 > 
oldccs . ■ 

■ ■biterrs .- 
..■•fade 
•■: fadecnt 

■■ -frtries' '■" 
. ■'. saraping.bitratesi.baudclk.- ' . ' 

vhe:" ' •-.•*'' 

.. ;hold checksum from coded frame 
t ' .-number of words in a- frame 

-numb words in 2 frames - 1 imod buffer 
r . .;i/2 words in framed buf (rd ptr check; 

. 7 . . -size of framing input mod buffer cti 

raming faults: ;■ 

- out-of -frame sync pattern failures . - . , ^ 



l;-.; 
1 

. ds 
ds 
dc 
dc 
ds 



1 
1 
c. 
c 
1 



; out -of -frame faults; numb of oof's iO-NOOF) . 
'number of voof's (0-NOOF) 
•CRC protection faults: numb of poof's (C-NOOF) 
'ancil data with old CCS CRC-16: doof 's (0-NOOF) 
'frame i/p word offset from start of buf fer 
•frame i/p bit offset f rom. msb . : . 

; frame decoding word offset from, start cf-ouffer 
frame decoding bit offset from msb. 
;framebuf circ buf mod ctl 



maxsubs 



autb. detect as.' requested "by switches 

-ISO- sampling id bit from frame header: low/high 
Vllo b*t rati from frame header: lo/h^. .Kbit rate 
^ -ISO. sampling rate from frame header: .ow/high 
• : ISO san^ling rate from on ^^^^^^^^Y^ = T?^^^!? . . 
. :IS0 bit rate from select sws: lo/ni Kbi. rate 

•hold i/p buf addr to reistore. after save ' 
: Idip switch il- bit) indicate which .... 

■■ . / of 2 selectable bit rates;- .■ ; 

; bit rate sets numb *irords in- a' frame: 
."o lower Kbit rate 
- • . • 1 . higher Kbit rate' 

■i/p PCM data sampling rate 
;0 - MUSCIMAM frames. 1 7 -3722 data. .i/p- 
;ISO hdr id'bit:". • 
.: •■ • 1 • 32 or 48 K sa!npling..rate . 

- X '-'is or 24 K sampling rate 
;MAXS'JBBAIC5S if MONO, frames ■ . 



ds 


.' 1. 


ds .. 


1 


ds •* .■ . 


V- 


ds 


1- 


ds .-, 


■.1*. 


1 . 




0' . 




-0 : • 




. 0 ■ 




■ dc-. 




' ds - 
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max5Ufis_2 

claccs- 

biterrs ds 
fade ds 
f adeem ds 
frrries dc 



ds 
ds 

1 

i ■ 



SMPLERATSS 
BITRATES. 



endrmicro^yhe 
endsec 



.155- 



• ;MAXSUBBANDS if 2 Channel frames \ - 
;bic 0- • 1 to decode . old . CCS crci:c: 
? 0 means MPEG-ISC frames 

\; count successive bit errors. 
- in case of fade volume, output ctl • . 
. ;in case of fade volume output ctl 
;count framing to reboot if too many 

; table of sample rate variables 

.;table. cf framing bic. rate variables ' 

.; table 'of specified ancillary data rates 



;The variables below are def ined in lowmisc in low. y memory and must 
; below address; 40 to maxe use of .short addressing. 



be located 



section lowmisc . 

. xdef word^out , word^in , not_appl 

xdef frmtype ■ . " 

xdef sibound 

xdef '■' ctlflgs 

xde f • maxsubs 

xdef protect 

xdef . inpstat ; ' 

.xdef ■ . inpsize '. 

xdef . temp • 

xdef. olwptr.brwptr 

xdef • linear" 



org 

strmicrs^yli 

word^out 
word^^in 
not^appl 
frmtype ds 



sibound ds 
.ctlflgs ds 



yli: 



ds 
ds 
ds 

I--; 



.1 > ' /applicable ha rdwaxe outputs (leds. switches? 
1 .-applicable hardware inputs (switches, lines; 

1 .. ; satisfy non- applicable hardware settings.. 

.. ;from coded frame indicates: . 

00 « (0) full' stereo 
• • 01 « (1) joint stereo .:■ ■ 
;-. ■ • - 10 ■ (2) dual channel 
•.. II' «, '.(3 ), ■ mono (1 channel J •• ■ 

.intensity subband boundary allcc addr 
.;contrcl indicators in certain bits:' • 
bit. .0 - STEREO^vs^MONO: ' 
-0 m stereo ■ 
1' • mono " 
; bit. 2 « joint stereo or--nbt; . ' , 

0 « NOT joint 
;• . 1- • joint stereo fra'me' 

;bits 6, 7 and 8 indicate protection 
.. ?was a saved frame used 0»no, i«yes 

•; bit '6 16 overwritten when validating 
. the , checksum after getsbits: -. ' 
■ . ■ • ■if C • checksum valid. 

.;. "; use the. frame in- progress.. 
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maxsubs ds ' 1 

proceci- ds. • ' . • 1 ' 

' inpstat ds . 1 

inpsize ds • 1 

■ temp ds. ' ■ .1 ' 

oiwptr * ds . ■ • ■ 1 ■ ; 

OTwpzz ds ■ 1 

linear • ds 1 ■.. . 

endrrnicro^yli 

. endsec . 

' org ■ phe: . 

" start 

;tum sf f the interrupt system 



and. save it when finished./' 
if 1 • checksum failed, " 
; use previous saved frame 

and bypass saving it when done 
: bit 7 indicates if a saved frame". 
' has been stored: -. 

;.. 0 - no saved .-.frame- 
' . ■ ...1- yes" a saved frame 
; bit 8 indicates, to. getvalue . this 
is a good frame to store: 

0 do not store in save area 
• 1 « do store in save area 
; bit 16 indicates whether the frame ' 
is coded with CRC protection. or not 
,0 - no CRC16 checksum 
r . 1 « yes CRC16 checksum included 

r bit 19 is for mono output only when 
; ■■: one channel is used tor output and ' 
the other is to be muted 
(see bit 20) ; 

0 • left channel fcr output 

1 • right channel fcr output .:. 
; bit 20 is. for mono output only and . 

specifies if the mono is. to output . 
; to one. or both channels: 
; / . .0 * both channels 
r ' . 1 ■ one channel only 
; . as defined by bit 19 

;*irorking MAXStlBBANDS 
;flag for CRC checksum protection: 
; bit 0:0 - yes, 1 « no 

;state of data collection 
;u»ed by ssirec to set mod buffer i/p; • 
;use by ssixmte for temp storage ■ 
;output left write pointer ■- 
; output right write pointer 
;value.-l to. reset regs to linear. buffs 



on 
hop 
nop 
noF; 



ft$03,mr 



• movep «S0001.x:<<M_BCR ;set all external io wait states 

fset dsp56002 clock to , selected MHz ;(PLL. Control Register) " - 
RCECODS M PCTL . • \V-*' : 



: move 



<initdeb 
.«ST2D9C6,a 



.;:ini 



:he debug port 
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..'■•'.•'jsr ouibex ; : 

".;inirialize" the volume- oucpuc .fade .control/- J- 

;FD ' cir;.- : a ' ^- .■\'''' >' ' 

•;FI>> V move. a,y:fade • -.'•.—v.. 

. ;FD . . move- a.yifadecnt . - • . • .■ ... 

; PORT C Assignments .-; 

, • s - ssi port ' . . . 

; i • input port ■ ^ • ' 

0 • ..output iDcrt ;. 

8 -.7 €-s-4 -'3.2 1 c;.-:-. ;.■ 

■ " ■ K5EC0DE PORT C M ?CC ;se: .C central register . for general- IC " 
'••Sic?DrPORT^^^^ . .;set. the default outputs 

RDECODEIpoRTIcX^^^^^. ^set C. register di^ . - . 

;■ initialize the ssi port . for the input . from the emitter 

■ RDECODE SSI M CRA,.- v.. . ;^ 

■ Sec^OsiImcrb ; • , .;s^c ^ssi .crb register ^. 

initialize the sci. port for tty ; 

" ": rCECODE^SCIJLSCR' ; '^'^^ sci; status control. .register 

; ■ PORT -B Assignments . ■ ■ 

i m input port 
. ; o - output pert;;. ' ■ 

'■'"i i4 13 12 ii'io-9 8-- 7:-6.-5:« - vi i o: ' / ;. ; 

■ ;•• O O O „ ■ O O O O ■ O 1 1 1. . 1 - — . . 

■ : . : RDECOOE PORW.PBC: ; ;set B conrr^^ ; . "• 

Tjnrronr PORT B M PBD ; set the de fa alt outputs 
■ . ^1cS^:p5"J>:^^^^ ;«t B.register direction ; .. 

. „ove ■ •n>w:^SJ^.t: -..^^^ 

• ■ "?^%AC RESE^^ v;- .; / ;clear . the DAC reset • line; to. mute;, output 

ON LO .SAMPLElRATE.LErj)CT^ / ^ ■ 

• on"h:"sample.rate.lee.dcd : . 

.- , set_leds bcd ' • , ' 

■ INTERRUPT' HOST .DO...: --. 
: . -^move. ;«>RPGDSYNT.STARTUP.a ; -. 

jsr. . -cwait . ■ 
• .;initialiie the linear buffer value for wX . / •■ 

: * V- ri'' .'.-reset^ to a'linear. buffer ': ■ 

•. move. #-l,roO^ - 
■nove'. mO/yiclinear r; 

.V-.. auic selecV rest iabi* erf ra«e\iength8 sample^ 
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'l&c y»tcriL iT.dicB.zes sample rate:_. 



low. 



bit : ci flag wcrd indicates framing cic" rate I'. C 



1 r.igh 
low, .1 f 



9T. 



move 
move 
move 
move 
move 
move 
move 
move, 
move 
move 
move 
move . 
move 
move 
. move 
move 
move 
move 



#aucotbl;rO 
IJtesttbl.rl 
x: (rOJ*,xO 

:«>l*xO 
.xb*x: irl)^ . 

X: (rC) -,xO 

xCx: irl)*. 

#>3 .xO . . 
'xO,x: (rX)*. 

x: ;rC^ *.xO 
. xC.x: irl)--^ 

#0,x3 

xO.x: irli* 
x: iro: ♦rXO 
xO,x: (rl) ♦ ' 
«>2.x0 
xO.x: (rl) : 



;sei sta: 



:-up auco selects 



bset |>o,x:autorate 
bae t • . no. XI autocode 
bset / #0 , X : autosmpl '. 



; table of selectable frame lengths 

■; table to test from., 

;get 1st entry frame length ■ 

; store smallest frame 

; indicate., high sample /low. fait rates 



;2nd smallest frame 
indicate high sample /high bit ' rates- 



; 2nd ;iaroest frame ■ ■■ • 

; indicate low sample/low bit rates 



•largest frame 

; indicate low sample/high bit rates 



;with lower bit rate 
,;as..MUSICAM . 

;at low sample rate 24,000; 



restart 



• c*jr dac_reset 

:nterrupt_host_dcd . 

•-urr. off the interrupt system 

; set the interrupt for host interrupts 

]• HOST set-to I?L 2'- - 

movep «>S0800.x:<<K_IPR 
■ andi . iHSf c#mr 



• ; clear the DAC " reset '".line to mute output 



;set ir.t ipricrities and edges 
•turn on the interrupt system 



*; ori ■ ■ :*IS03,mr. 

j'disable the' ancillary . data transmit interrupt ; 

•bClr -- " #MjriE.X:<<M^SCR; 

^i-'c ^^^A vinosta- controls data collection from the outside 

"; 'is lacremented.- 



• clr 
move 
move 
move 

nitialize 



a,y:<inpstat r- — 

.a.y:<ctlflgs:j 
a.y:<net_app. 



; decoding control flags 
•clear any stiibbed .flags 



the led'butput'word and light initial -ieds 
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• ?sf^£:^^IJ^^ DCD,:_seL_l.ed.O ; unless already set. .. ^, , •. . 

. •, lCT:£lRMiELAY_DCE- . , " ■;, , ^ . the alarm. relay iine.oa ■ •-, . . ... 

_»8t_led 0_ ^ RATE_LED_DCb ' 

oF-lHrsWiPLE.RATE.LED.DCD..;' 



; • 'ZV-r'-T ra-'OWIMCS DATA IS DECODED AND PUT INTS A HIGH MEMORY,-. . 

' I^-wr r bI ^^ioS^rS SdSS oaS SI£ ?he time whi:x the program . 

; tS M^^SS^^-fflA^NONE OF A TORD. IS IN ERROR : . 

!-TSST DATA.-..'. 

iiaitialiie the buffer. '.c be; decoded for testing 

• OT?JREE2_SC^J^J>CD : ... .;indicate no problem..- with Reed Sclomon .. ' 

„.^' inear m' ' ■ -make sure it's linear buffer - 

move y = *rt2!»r'm5 • smaice sure it.' s linear- buffer 

- . r::-nlal'S6 • Sid sure it's, linear .buffer -- 

move ■■. • y ;<j.-near«rao ....... . • 

ri . .;code the 1st of the encoded frames 

move ^^^^««^^"J;^^o • zero the. test value accumulator ^ 

•c-r * • Z'*^'''." . & to increment. in .the test .buffer : 

;set rheframe buffer to sequentially incremented val^^^ } 

■ do.- ■; • #&€,:.initl"" . 

add ■■ . • xO.a ■ ' 
■•■ move ;al.x:lrl)-. 

initl 

"do the reed- solomon encoding, on thi test .frame" buff «5r; 

■ • K,.f^i ;o/p pointer of buffer to be RS-D£C03£- 

move . #syncbuf,^i .... U/v pointer for CODED data tc aecode 

^ "^^^^^ Upporfrf ■ ' : iReed^Solomon profile:, control; aecode 

. move UPROFl, r3 ... .... ^ . " .encode via reed- sol omon -.. . 

jsr <rsdeci6 

; test if the reed . Solomon codec worked -or NOT •• 
" X ^ "' .Dcinter for DECODED data to be stored 

.move •:. .-•syncbuf .r6 . ., .-^cintcr for the verification tabxe ... 

move .tframebuf ,rl .... »pc*" 

•;verify "that the.reed ^pn«n- coded values are cor 

"'^do.. ■ «e6,.RS_Chk' •: •;■ -Get current' coded data output-' .•• 

move X.: (r6>-»',x0 '-Get preceded look up. table value 

move .x:<rl)*.a '-con^are 2 values . 

' - • - ■ ctmA ■ ■ -ilf SAME. No problem. . ^ 

;4 - ■ ; indicate no problem with Reea So^omcn 



Same. 



• OK.REED^SOL^lxb^DCD 
enddc ^ 
nop. ; 

■ nop'' ■ 
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• .160-. • • -.; 

JlS_Chic.'.- - ' ... ' -' V- ■ • 

'sET_LEr>S DCD ■ : 
INTERRUPT_HOST_pCD ' 

■;mute current output buffer' J • 

' , move .. *loutbuf,r7 • ; setup synth variables 

jsr . ...cnniteout ;mute the dac output^ buff er 

; get the external switches to determine frame bit rate 
and ancillary data baud rate. • 

GET SWITCHES^DCD gsws^OO . 
' •• ^ jsr~"; .^;.<getsws • 

;MUS:CAM selections by switches set up prior to possible auto select . 

...... move' x-.tstsrapl^yl- ■ ' 

niove yl,y:sn^lrte ; set the i/p PCM sampling rate code 
move- . . x:tstcode,yl 

move ; • yl,y:iputcde ?set type. of i/p data MUSICAM vs G722 
'-• move'- •• xrtscrate.yl."' 

. - .move. yl,y:frmrate . ..-set the frame rate . i/p code .■ 

;!!!dsb 11/22/94 

;;;if no auto selection required, go with the settings from the input switches. 

• ; ; move . #autosel , rO^- 

nop ■ 

.; ; jclr »0,x: (rO> ,_onward_.. ;N0 auto selection required , 

•l! !dsb 11/22/94 



;i{ the selection of MUSICAM ys G722 is not auto selected,, . 

test for MUSICAM input data stream selected versus G722 data input stream 
r and if G722 selected manually, boot rom file from lower half of the chip 

• jset »AUTO_SELECT_DATA_TYPE,y:cctlflgs/_auto_type ■ . 
move y : iputcde.,b ■** 

tst b ;0 - MUSICAM; else G722 

jne <g722_boot . ;if 1. it's G722/ boot lower half. 

. ^auto^type ■ - " 
; initialize- the auto" select MUSICAM max tries ' . . ■ ' ■^ 
"move./ #>MMC^BOOT^IES,xO.:.; 

•■ move ■• ' '.xO.xiinaxtries ;■. . ' ' 

jsr cautoselect . ;try for. MUSICAM input data 

■ ; if autoselect successful, use the/selected info. " *\ --.^^ 

.. . . m'ove; ' '#autosel,rO ;" 

• • .• "•nop- * ■ ■■; . .: . ..V. . 

riop ■ '' ' \ ' . 

noo ■ : ■•' • ■'■ ' J r . 

jclr - : #0.x: (rO) ,_onward_ ;N0 auto, selection required 

:;if auto select for ^fUSXCAM.vs_.G722, "it must be G722 



SUBSTITUTE SHEET (RULE 26) . ^ 
■ ■ :^BAD ORIGINAL t^' 



wo 96732805 



PCT/US96/0483S 



.V. . -*■ .-ibi-".--- 

■*.•.■/:'.■.. nop .'\ \' ;'■ . . ■' - '.[.'.'.'■'■■ 

hop \ -. i - - • . • : ' 

nop-' - • "'. '. . ' . 

■" . nop-- . . ;'. /V ■ /■ . 
nop 

".' •'jset •/ ..«AtJT0_SSl£CT.DATA_T<rP£,y:cctlflgs.g722_boc; ■ ;^ 

' ;"indicate riot- MUSICAM" framed ■ ; 

ON FRAME LEO DCD" " ' . ' . ' ?ser 'Che framing' led alarm '• 
set" le::s"dc:" 'v. • 

■ ikterrupt host^ocd. • . ■ * / 

■ 3mp, ; crestart. . ; • ; try. for new switch settings , 

. _onward_ = ' ■ ■ • 
.•everything for .MCSICAM selected by! switches, or auto', selection " " 

move- . -x: tstsmpLyl • . , 

move : : yl.ytsmplrte . ?set the i/p PCM sampling rate code 

. •• ■ • move • -xitstcode.yl*- ■ . .. . wfte.-,vw ^« — ' 

■move.- yl,y:iputcde. . . ;. > ?set type of i/p data MUS-^^ vs w.2-i. . 

•".move"' x:tstrate,yl""- ' • ■ ;.• .. • •■• 

■■. move. yl,y:frmrate ... ..;set the frame rate i/p code 

move yi/yrbaudrte ' ;set ancillary data baud rate code, 

; J test for the diagnostic method of operation 

; TSr CLR DIAGNOSTICS_DCD,_go_fwd ;if normal operation, continue. , 

• ;diagnostic method of operation ' selected' • reboot from, the .low portion, of chip 
■; • bclr" . «ll.x:«M_PBD .- ;clr boet.cOOO for rdcddiag boot i-bc::;. 

; . . ; ^mp ' • .<bo6tup- 
;_gc_fwd ^ . ■ • .' 

;■ set -Che values" for the data collection routine. , 

This iS used for setting the value for the. mod buffer ctis . . ; ^ ■ 
* . ■ • •■•* v:frames2 • .. input for purposes of framing ^ - , " ^ 
. : . y^irmemod- noimal framed.. input idouble buffer ed- 2 frames; ■ 

;..but settinr-he address of a. buffer. (y:inpwptri can/t hurt either. . 

. move #syncbuf .aO :;set input .word" pointer .;. 

* "HZl ^ «?;amebSnr ' .'buffer addr of MUSICAM decode buffer : 

. ; . . : : ^or^SSdSr input buf addr- for. saving- frame 

'/set access to the flags resulting from autesel framing pattern wapch: . 
; .bit C - sampling rate: 0 - low. l • ^^9^ 
• • bit 1 - framing bit rate: . 0 - low, l - high . 
V ■ III 2 ISO vs old CCS: ' 0 - ISO. 1 - old CCS CDCICCO 
bit-'3'.- CRC-16- protect ion:- 0 ■- yes. 1. -unprotected. 

V ■> ,„ove..' «chkf lags, rl ^y-y:^^^^^ of.au^osel. match ; ; 

;based cn the sampling rate and; framing' bit rate selected: 
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sec -he sampling race code for che ISO frame heade- 
sec cne .raming cic rate code for the ISC frame heade-- 
set the frame . sixe. in words and bits ' 



move 


■ wscnTipxii^ « ru ■ 




y . smpxrce . o. • _ 


wow 






: <_smplcds_- 


rep 


■ fc ■ ■; 


. move . 


(ro; ♦nd 


^Icds " ■ ' - 




fnove 


■■"#4, no. ■.■ :: 


••■ jcir" . 


»2,x.: irli , smpi cds 


move 


\TO)^nO . . 


l^cds^ 




move; 


■ . y:.lrO; ♦.x6 ■ 


move 


xO,y:smplcde 


move 


. y : (rOi-^,xC. 


move 


x0.y:smpZidbit 


. move . 


y: (rCJ -^xo . . 


move 


. xC,y:.maxsubs 1 


move ■ / 


y: (rO) *vxO " 


. move 


. xC/y:maxsubs_2 


. move' 


y :f rmrate.b 


. move 


#bitrates,rO 


■ tsc 


. b #8,nO . : 


■.■-3«<I -, 


«_bic_of f i5_^ . 






move / 


(rO; ♦no 



;addr of sampling rate. codes • 
;o.fsec to sampling code table 
; test for sampling'rate" cf zero 
; & set register to advance thru 
;if code is zero, we're there 



cable 



rposition to selected sampling rate. code. 

=;cffset MPEG - ISO vs eld CCS values 
; if ISO, rO is all set fcr ISO values^ 
;offset to old CCS:. C0C1CCC values 



;gef: frame header sampling code 
; save code to match in the frame header 
;get frame header sampling id bit 
;save code to match in the frame header 
;get 1 channel frame maximum sub-bands - 
rsave max sub-bands for decoding mono 
;get 2 channel frame maximum sub -bands 
;save max sub -bands for decoding dual- 
'^*f" i5i"^rate to sec audio data size 
;aadr.of framing bic race info 
;test for rate of zero 
; (t set register to advance thru table 
;if code IS zerc, we're there 



;po8ition to selected bit race code 



_bit_cffa_ 



;set 



:he table offset based on sarapiihg rate 



move 

tsc •; 

■ / jeq ■ 

": rep-. 

■ move 

.bit^smpl^.- 
move 

■ ; jcir; 

■ ■. move 

_bic^rate_- . 

move 
. . : move 

■ move 
move 

■••■move 
'.sub 



y : sraplrce/b 
b . #4, no 

^bit^smpl^ 

b. 

(rC) *nO 



y: (rC) *,xC ; 

#2,x: tri) . bit rate" 

y: trO) .xc " " . " 



xC,y:bitrate 
#>l.xO 

■ irO)^ ■ • 
y: (rOJ,,b . 

;C, y : f rmsize 
xc.b ■; 



;gec the sample rate code / 

;tesc.if low sampling rate ' 

. i sec off sec co proper sampling race 

;if low rate, addr is set . 



; posit ion to selected sar^ple . rate - 



. ;get ISO bit rate, code '■ m; f ram.e header 
;if ISC, xO is ai: set with ISO code 
;get old CCS bit rate code in frame hd= 



;save frame header bit race code 

;to subtract 1 for mod buffer ccl below: 

;ddvance to sampling rate lengths ■ 

;Icbic/sec race frame size in words 

;sec « cf words in a frame 

;co set decode f ramebuf sicd ccl 
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move. , l5l.y:dsdfrmod ' ... -yset MUSI CAM decode framebuf mcd ctl 

,/ ' move ■ y:frnisi2e,b •.• . - ;get * of words m a frame 

■. . Isl . • b. ;doubie buff.er framed i/p buffer * 

sub xO,b #>NSByrs,xl . . ;subcract 1 for mod buffer control 
■ ['/■'.-' :k set number of frames to- check 
\ move ■ ■ bl,y:frmemod. ., • ;8ave mod buffer control. - ■ 2 .framei ' 

■ add 'xO,b -^yifrmsize.yl * ;re-add 1 to calculate 1/2 frame size' 

.and get full frame for below . 
Isr o . ; frame size divided by 2 . ■ •■ 

move bl,y:frmhalf . ;save 1/2 frame size (1 full frame- 

;now calculate the framing buffer circular mod control "size • 

. • • . • mpy •• ■ :xi,.yl, a" «>l,yC;\; v ■••..;zim^ size '• /;* 

• .'• • ; and set-up 1 to decrement ' 

asr a ... .- .'align integer result 

.' .nove ." aO^.a • ; shift integer result 

sub yO.a ■ . .'•vminus 1 for mod buffer control' ; ' 

move . ■ ■• al.y:framesz -. • ;.save. framing- mod buff er ccntrcl 

-;8et.up for ancillary data to be decoded from a framed and transmit via rs^32 
; . a. set address of clock table, baudclk. based on baud rate (C thru 7 
; b. set table offset by baud rate.; 

; (these, are standard CDQ2C00:Set by macro. BAUDCLK, in box ctl. asm;: 

' ■ . ; • a. --.300 baud •. 

■ ^ ■ 1^« 1200 baud 

■ ; ■■• . 2 '» 24 00 baud -." - 

.; - ••■ - , 3 » -3206 baud ^ . . 

4 « 4800 baud".' ! ' 

- .5 - 38400 baud; 
- ■ 6 • 96 00 baud 
" • 7 - 19200 . baud 

■ '; •. c. set transmit enable. 

. ; .d. get and set: the clock for baud rate from the table 

' e. adjust to the sampling rate mfo 
; f. get and set the max bytjes. f or baud race from, the cable 

" move .* i «baudclk;rO ../'■■ : get' data baud, rate table . address 

move y:baudrte,b - ;sec to access clock at baud rate . 

• ■ bsec ■ «M TEiX:«M SCR " •- ■ • ;sec transmit enable ■ 

tst b . na-,?!© . . ;teat for rate cf zero 

, & set register co advance thru" table-. 

• ■ .jeq . ■ <_baud_cds^"-. ■ it code is zero » we're there .'; 

•-• ■ rep' .*.' b" . ; 

move. ' ,{rO>>n0 •.; position .to selected baud, rate code .:. 

^ _baud^cds_^ ' " '- 

• move y: (r0V*,r2 • .. ;get clock value at baud rate 

. move y:smplrte,nC ;now get sampling rate offset 

novep r2.x:«M SCCR ;set the clock fcr selected baud, rate . • 

•move . y: tr0tn07.nl . :get max byte count at sampling rate 

'■move - nl'.y.maxbytes"' ■ ...- ^-store maxbytes .for scixmt to' check ■ 

•- ';set flags" fcr. sampling .rate, and .type ef data received. • 

dbg -■ \ ^- ' ■' ' 

.^-nsve' . y:frmrate.b' ? " .- .-y.' ■' '■■ 
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. SST_HI^3IT_RATE_PCD 



; I idbg 



; smpi_ 
;Tl idbi 



! : !dbg 



move y:.smpirxe,b . 
tsc b . ■ . ..y:iputcde/b 

jeq • <^stnpl_lo_ 



!db9 



bsct • tSAMPLE RA-rE_LOW_vs_HIGH,y:<ctlflgs . 
•;• ■ ■■ SETJHr^SAMPLE^RATE.DCD . 
■ 3mp* ''•<.-ype-'- 

.1 ; 1 1 idbg ■ ■ . \ . V 

; snvpl lo " 

r . s1t_lc_sample_rate_dcd 

.;test tor HCSlCW input data stream, selected V G722 data input stream 



• tst 



b 

<rate 



;0 MUSICAM. else 3722 
;.if 0, it's MUSICAM. test bit rate 



:g722_boot; • . ■' 

;G722 input selected, signal the encoder fJ^^CRMUS and 
boot up RMCRG722 from the . low portion of chip 



12/7/1994 SET G722_DATA_DCD ' • 

bset #MUSICAM_VS_G722,y!<C^lfig5 



OFF FRAME LED DCD 
off'crc ERR0R_LED_DCD , 
OFF'MONC LED^DCD. ... . 
off" JO INT le5_dcd 
off"stereo_led_dcd 
off""!© bit rate^led.dcd 
off"ki'b:t2rate_led.dcd 

ON 5722 Lm_DCD 

OFF MUSlCAM^LED^DCD ^ 

0FF"L0 SAMPLE RATE.LED.DCD 

0FF~HI*SAMPLE^RATE_LED^DC0 

set^leSs ocd 

INTERRUPT HOST^DO 
bclr llll,X:«M.PBD. 
jmp : . . <bootup . 



douse the framing led alarm 
douse the ore error led alartr. 
douse the mono led indicator 
:douse the joint stereo led indicator 
•douse the stereo led indicator 



; light the; G722 front panel led.^ 



•set the leds as needed 

;clr boot cOOO for RMCRG722 boot 
•boot in RMCRG722 



rate 



.dbg 

' . SET.MUSICAM.DATA^OCD 
; setup synth variables. 



ill dbg 
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• ^-,„»Hi'f W .' .-setup synrh variables ■ - 

■ move - »outbuf,r7. . . .^^^ „ skip left and right • • ; 

••' ' 2li^UF-l m7 • ■ ■ . •■■ ;s« circular outbuf ctl- ■ 

move. JOOTBUF i,m/ . .. - . ^^^^ and. write ptrs - . 

.• move .. . ■ r7.r0 ■ . • . . • ■ ? 

- jsr : <alignptr-. : . *s«t ptrs ^ 

Now set .priorites:of the :iRQA:ahd;^ ; -. 

■; IRQA priority - C turned, oft 
,; HOST set to IPL-2-.. . 
; SSI- priority. - 2-.. 
t ^ SCI • priority" • 

■ •• e«ftnn v.<«M tor . -:set int priorities and edges .. 

^ ::S^ir:«:IS§S:x;<<0S; •. V.;;»« in=5r.er;txes,and edges: .V^^ 

; : I idebug -ticicie' -to' sei, It - Chip . bo^^ 

■ bset-"^' WATCH DOG-' < ^' 
• • bcir WATCH^DOG 

. M-ait .for the dust to. settle before pushing" onward ^ ; 

■. ^KM' move V. #>RDCDSyNT.STAR7UP,a . . .. 

^ : \ andi ■•^^Sfc/mr^VV ;-; , ^^^m on. the interrupt ^systeir - ■ 

";. NOW we. are alive with interrupts on: 

■; set the-addresses of inbuf and. nxtbuf , to receive the in^ut data. 
reframe • 

• ■ ' bc^r #m TIE,x:«M.SCR:.. . ,;d.sable .«= data.-.ransn.iz ir.-.err-up-.; , 

;.iif .GT22 daca. input, go -o the RMCRG722- boot-up -routine • -^^^^ 
jset ■ «Masi(aM_vs^G722,y:<ctlflga.g722_boot. 

■ V;aince tt- s .nusicamv 'ceeP- i^^^ and set .indicators-- 

■ SET MUSICAM DATA^DCD'. 
ON MUSICAM^LED^DCD 

OrF_G722_LED.DCT . framing led alarw 
... ON FRAMS.LED.DCD ; . • the ere error. led alarm .. 

ONlCRC.ERROR.LED^OCO . . : ^ . 3^^^ indicator 

OFF MONO^LED.DCa . ... '.^g. ^he jcinf Stereo led indicator... 

. . OFfIjoint.LED OCD^ . ■ ... the Stereo lec -indicator . . 

; set" micro leds " and indicators .--^"'^ ' " 

"move- '. tfrmrate.rO_ • , 
' nop.-'.. ■ - •; ■ ••; test "for frame higher- Kbit." rate- . , 

.S2r_i:^:TJtATEj5CD . .. ^ . •;. • ; 
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ON 'LO BIT_RATE_L2D- DCD 
"• QrF HI.BIT RATE.LED.OCD . . 
.jtnp" . " " <_3o^co3ing^ 

do hi' ■• •*."""•* 
~ • . SET HI BIT RATE_DCD 

• -'ON KI BIT RATE_LED_DCD . . 
.OFr_LO_Blf_RATS_LED_DCD.,. 

-do.ccding^^ ljSAMPLE_RAtE_LOW_vs_HIGH. y :<cclf igs._hi_rte_ ;test hi- satiple ■; , 
■ SET LO SAMPLE_RATE_DCD " . 
' ON LO SAMPLE RATE_LED_DCD 
■ OFF- HI- SAMPLE_RAtE_LED_DCD 
■ jmjr'-""^<^Ojlld_ ■/ 

"^^■*^"'~SET KI_SAMPLE RATE_DCD 

. ON HI SAMPLE_RATE_LSD_DCD • 
OFF_LO_SAMPLE_RATE_LED_DC: • 

.•check Che phase lock loop signal: 

TST SET PHASE LOCK_DCD , _set_PLL ■ . _ 

OFF""pKASE_LOCK_LED_PCD . cum - off phase . lock led indxcator - 

.-jmp"", ,. <__^set_^alm " ' 

^set^PLL^^ .PHASE.L0CK_LED_DCD '[ ; tuni on jphase lock , led indicator . . 

-®"-*^%^ALARM.LED^DCD . . ' , fset alarm led indicator 

TST SET ALARM RELAY DCD,.scc_led_A ; unless already set, 
SETIaIJ^.RELAY.OCD" ' . - ;set the. alarm relay line on 

.set.led^^ ; : .seethe lecb as needed^ ■ 

INTERRUPT^HOST^DCD 
; route the audio output until we are framed 

jsr / cmuteout- ^ ; ; mute the dac output buff er 

;cpntrois to force a reboot if . an inordinate number of , framing errprs;.: 

w.f,-rT-ieB a ' ■- ■ ;get frame tries • •■ " * 

# M^v^TES xO ■'■ ;get number of .tries tolerance . 

; move «>MAX TRIES. XO - ; . ^^^^^r of tries tolerance 

"j!^^ t^^ ;Sake- test 4 set up CO incr count 

cmp . xo.a »>x,yu ; kill watch dog. if reached tolerance 

• jit ■ • <.dsb^g:. . : ■ • 
. J if minuai: auto selection/ do not f orce a reboot - ; : 

'•*■'■. move'-. • ■ #autiosel^.rO'. 

. " jc?r ' ■ ■«0.x: (rO)".jaanual^restart^ ; ^ ■, manual select/ .do not 
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-nop 
nop 
nop 
nop 
nop 

jmp 



■.■<restart . 
_roanual_rescart ■ •„/ •• 

;if In manual -mode, zero the failure counter 



;kill watch dog 
;lcill watch dog. 



cxr 
: ' niove ■• 
..nop 
nop 
■ nop 
•nop..:, 
nop • . 

dsb dbg - 
" " . add 

move 
jsr 



a.y:frtries 



^restart; 



yO.,a #syncbuf ,rO. 

a,y: f rtries. • ■ 
<framit 



rin manual mode, start, over 



; increment count of frames . 
; & get address of sync buffer 
; update count of framing ■ tries 
. ;and frame the data . .. 



..•test for successful framing, if not, rescart 
.. tst . • -. a .■ r3,y:IPbitoff 



; test if framed (a ■ O.if framed)' 
; •& save the. bit offset 



jne 
nop 
nop 

. nop-, 
nop 

_ jmp 



<restart 



< re start 



;N0, we must restart 



;since..we. have MUSICAM . frames, set the flag for auto select switches 

. bset-" ; #MUSICAM^INPtrr_SET>y:<ctlflgs. . 

.-indicate to encoder that the decoder is framed and to use pins for: .. 
; . ■ MUSICAM vs G722 , ' 

Uot^r^ri^o"^^^ Pin stiU low,. encoder:operaces- 

■ .■■ at MUSICAM at the LOW sampling rate) .. . 

■SET_DECODER_FRAMED_DCD' 
.•initialize the polysynthesis arrays for. the 1st .frame 

. '■■ ■ ' jsr ■.■.'.<polysini. ■ . . ■ ■ 

; the a reg is returned as 0 to go oh . . : '. 

.-clear the successive CRC-16 bit error =o«"^^f,V-.;„ : 

■ ■■ i* exceeded according to. the chkcrc routine, automat icai.y re frame 
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move 

move 

move 

move 
.move . • 

move 
■ bcXr/ 

bclr . 

bclr . ■ 

bclr 

bclr 

bclr : 



, y :Ditcrrs 



a 

a.y.oot 
a.y : voof". 
a , y:pocf ' * • . 
a,y:doof ' • 
'rS.y:IPwrdoff 
#riRST TIME.y:<ctlflgs. 
»FRAME"SAVED , y : <cclf igs 
#USE SAVED, y:<ctl figs 



#SAVE_FRAME.y: 



Mgs. 



#USING SAVED, y:<ctlflgs 
ttR£FRAfiE,y:<Ctlflgs; . 



OFF FRAME LED OCD ,. 
2NTEHRr?f H0ST_DC3 



;zero the bit error csuncer .-• - 

;zero ouc-o£-frame faults eour4ter 

; zero sample rate code faults counter 

;2ero CRC protection, code faults counter 

;0 ancil data errors/old CCS CRC* 16 cnt: 

;save i/p buufer word offset 

.-clear the .indicator- 

; clear the indicator • 

; clear the indicator -.. . . 

;clear the indicator". / 

; clear the indicator 

■; clear,; the : indicator 

; douse decoder framed alarm led 
..•set the. leds as needed. 



; for .ancillary* data decoding purposes, determine the end of the coded frame 
jsr . <f ramend • 

: initialize the ancillary data controls for. decoding and transmission 



move ■ 
move, 
move .■ 
do • . 
move 

data . 
" bset 



a. irdatabytes.rC 

a.y:bytecnt . 
rO,y:dataiptr 
rO,y :dataoptr 
«DATABUFLEN , .c 1 r_dat a 
a,y: (rO>* 



#M_riE.x:<<M_^SCR 



;zerb the decoded byte counter 
; & get addr of the. data byte buffcs 
; bytes decoded counter set to zero 
•address for next, byte decoded . 
jaddr for next byte to out RS232 

.-zero the ancillary data buffer 



;set the data transmit interrupt 



; Let the show begin, 
top 



.-get the external switches to determine if any. changes that signal a 



restart 



ok 2 



GET SWI?CHES_DCD gsws_20 
jsr" <getiws . 
3 set .- «4 ; y : cnot.appl . restart 
.jclr"; - ■ ■♦4,y:<not.appl._oic_2_ 
. nop 
nop-- 

nop.'.' /■ * ■ . ■ 

■' nop ." 

. jmp . ■.' <festarc 



check. the phase lock loop signal: . 

■ • • TST SE7_PHAS£_1-0CK_DCS , ^se t_ph ; 
if not set. clear the phase lock .loop led and ligi^t the alarm led. 
■ CLR ZkZ RESET-, .y " V ' "/ " -^^^"^ the : DAC- reset . line; to _ 
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OFF PHASE LOCK^LED^DCD 
OU ALARM EeD.DCD 



; cum or f phase iDck lea ir.dicacor 
_ light alarm condition- iec inairatsr 

TSf SET ALARM RELAY DCD, set led_B ' • • 
■■:SET>LA5MJlELAY_DCir. • 



else, light the phase lock loop led . . 

and if there. is no CRC bit error, clear 



the alarm led 



ON_PHASE_;lock_L£D_DCD :•■ ; light phase lock loop led indicatcr 

TST SET CRC ERROR DCD, set^alm_A ;if crc error set, turn alarm led on 
■.CFF^ALARM^LED^DCD"^ , ' : .;turn ctt alarm led indicatcr- - 

■TST CLR ALARM RELAY DCD, set led B ■ " . . 

clr"alarm_relay_dcd" : 

-jmp^ ■ <Iaet_led_Bf-.; \' 



set -aim A . . 

ON ALARM LED DCD 



; light alarm condition led indicato: 



TST_SET_ALARM RELAY DCD, set led B 
SET ALARM RELAY DCD" . " 



set 



led B 

■ . OFF OVERLOAD LED DCD. 
SET~LEDS DCD~ ■ . 
INITRRUPT HOST DCD ; . 



bset 
bclr 



watch dog 
watch'"dog 



; clear decoder overload alarm led 
;8et Che leds as needed 



; tickle the dog". 



Now wait lantil we have 1 wrd in the input buffer ' 

The varibie waitform contains the address cf one word after the sync word. 
This is the word to wait for in the interrupt routine to signal the 
. start- of a new frame. 

;8et up mO as a mod buffer of one frame 
7get buffer length 
;%#ord offset for frame start 
■- ;gec 1/2 buffer length: frame length 
.. ; times 2' 
. ;set framing buf length for addr compare 

;incremeint to next input frame 
. ;save new offset word to start cf frame - 
.; increment 1 word .. 
set as' address to wait .for 
. : . .-restore rC. to linear addressing. 
' .;get half the framing buffer size. 

Here we check if we have received enough data. to proceed 
•This is done ■ by . checking by subtracting, the 



move 


y : f rmemod « mO.; . 


.move 


y :f rmsize.nO 


move . 


y: IPwrdoff .rO 


move 


y :f rmsize, a 


Isl- 


a , 


move 


: al,yO 


move 


(rO)*nO 


move . 


rO,y:IPwrdofl 


move 


■ (row . . ■■ . 


move 


r:,xo .■ 


move 


y:<linear*mO . 


move 


. y :f rmsize,xl. , 



rdec IS " 



bset 

bclr; 

move" 



WATCH DOG 
WATCK^DOG 

y :<inp%ifptr..a 



rtickle :the dog/ 

.get curr read frames i/p pt 
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sub .. xC .a 



ild yo!?V^ , . • ;S'*resuirby framing buf f erViength 

_rdec_2: : . > . ; ■. ■ ' ; see if past a half a buffer ' 

■ ill- ■ •'••< rdec 15 '- - ;if net yet at .the half-way, loop 

U?^Suired for eVeri frame sizes when auto select sampling: rate. / • 
Mke sure no rate switch fooled the decoder . 

/ VERIFYJur:0_SAMPLH; ;■ ; . needed by box^ctl^asm^ ■ 

-llllDGCST 

Vtalce che..iiext:' £r.i«. «;:decode;.ind ^rd align iz. for reed solomon decpdin?- ., . . 

■Ttw.,.j^** ■ -oe- •he word offset for. the next fame- to decode-. 
ls^Tf:'.f'. .:.nse-address of .he i/p frane buffer. 

• i;iariSii?rl' iJlSior^Rlers^i^on i/p buffer - . . . 

• t"amebu£;r2 ;addr for MOSICAM decode frame i/p buffer 

*;o'*nO ; get to start addr of current i/p. frame-, 

IZl v"TO«ize.nC .-number of words m a frame . ■ . 

.: Sove . .;yii»""«.b : fbit offiec. to sync pattern in 1st word-. 

or the e;,L^S^ilrr;nd shift to word, boundary ; . 

•••■. Jive ./'x-lrSTtM*^'^^^^ 
■ ;if word, alreadyare aligned, simply copy the word to the Reed Solomon buffer . 

• . ' -..^ • > ■ x-(rO».ao' .-see if a shift is needed,' u-.. 

■tst.. -t.. , x.iroi.«« . : ^ . 2nd word of curr pair to shift 

■jeq ■ . « no ihi't.;, , if no of fseS .no shift needed 
•\,for the,.nun^r' 6lof£..vbit.. shift the pair- of wor^s.to abut, properly aligned 

rep ■ b ."; . . ; : ■ ' , 

■ -asi : a-.. .^ 

■ ^no^shift 

:: "cow aligned word 

;**! ! :dbg • • [' 

.move; .al,x:lrl)* .-also copy to MUSICAM frame buffer 

■ •■•mov^ .• /.al.xrtr?? * : 

-.^reed.shift .. 

' ; Tdebo^e the Reed Solomon frame back to a MUSICAM frame . 

' ' ■ ^r. ■ . ; restore rO to linear addressing . ;., 
move y-*^i^®?^',, - .Reed Solomon, frame buffer: i/p 

.. , ..move. «reed60lbu..r6 . '.^^ame buffer decoded; o/p . 

move <iframebuf ; ; Solomon profile: centre, oecoce 
■ move ." uPRCrA.rj . 



;sub aodr to wait for... 
; check for zero addr wrap around 
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3sr <rsdecl6 ; Vao Reed Scloraon decode;.-*- 

;Kow setup the buffer reading routines 

move y:dcdfnnod,m6 - , * • ■ ;de coded Reed Sol frame bufmod ctl, 
move ' ■ #f ramebuf . nS rdecoded Reed .Solcmcn frame buffer 'addr- . 

• • ■■move ■ ■■•y:wrdoff ,r€- ; ■ ;bit cffsec from msb.. 

move - . .y.bitoff .a . ■ ; ;bit of f set f rom msb ; ■ . 

bclr ■ #USS SAVED. y:<ctlflgs .;clear used saved frame flag . / 
bclr «USING_SAVED.y:<ctlflgs ;ciear using, saved frame flag .. 

;. ■ '' OF? CRC ERROR LED DCD • . ';tum Off the crc error led indicator " •. 

TST^SSOHASE^l-OCK^DCS^^clr^aim^A ;if not phase loop, locked,; then 

- "CLR DAC RESET ... ;clear the DAC reset, line, to mute output 

"ON" "ALARM LED DCD ' ^ light alarm led indictor 

• TST SET ALARM -RELAY DCD. set ied^C 
SET"ALARk_.RELAV_DCD" " .- ; tum • the alarm relay' on ' ' 

jmp^. • <Zs«t_led_C 

-Clr^alm^A 

/release the digital ' to- analog- converter- for, output' . 

• SET DAC RESET • ...'.set the DAC reset line' high now 

OFF ALARM LEO DCD " ; turn off. alarm led indicator 

tst"clr aIarm'^relay DCD. set^led^c 

CLR^ALARM^RELAY^DCD* . - ■ ;turn the . alarm relay off- 
set led C . , ■ ' ^ \ ■ 
" ' SET LEDS DCD ■ . ; set- the • ^eds . as needed ■ 
:NTlRRU?f_HOST_DCD ■ 

[' ' bclr #SAVE_FRAME.y:<ctlflgB ;clr ind for getvalue to save frame wds 

; Now we are ready to decode, the current frame using: 

. n6 ■ buffer address . m ^ \ 

; r6 - word offset into the buffer for scart of the frame - ., ... 
•a - bit offset into the word offset into the buffer for start of tne frame 
m6- « mod buffer control through the buffer this will be either . ., 
-.ormal input for 3 ♦ frame size -1 (leaves space for saved buffer) . 
single, frame. 'ai" -1 for using the saved frame if a checlcsura errsr> 

■jrdec_3D"- ^ ;:':•'' '.* ■'■ .r ' 

. ; i !idc3ct ■. • -bset ' . 'WATCH 'DOG.;- ' ■ ". } . ; tickle ■ the dog : 
■ Miidgsct ■ • , bclr " WATCH^DOG" • ,;;-icJtAe the dog 

TOdCLE^WATCH^DOG^DCD .. 

^ "jsr <bit8ailo . 

:?'prepare :o suppress aiicillary data if any out of frame condition . 
;bclr"- «N6_SYNC,y.:<otlflgs • ;clear the ■indicator- 
Now. get. the sync pat-em.^ If the- pat tern matches a good-syn=. -^en".. 
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■; -he scf rcur.ter is decremented. If it doesn't match) the oc£ pattern • 
IS incremented. ' If it . is incremented past., an upper limit, an cut- cf .'.* 
; frame condition is declared and the system goes into framing. 
.; On the other hand, the oof counter is never allowed to go negative.. 

■■"jsr -. -cgetsync \ ^ s3^^ the .'sync .bits 

" • -move '■■ ■ al,yO . ' ;move right justified value 

. move/- y.rcof.b *.■ ;get current # of ■ ocf ' s ■ " " . 

.;if using the saved frame, do not recount sync problems . . 

jset • «USE_SAVEr,y :<ctlflgs, rdec^SO 

move r «>SYNC,a ^ " ;get sync pattern for test . . 

ctrp yO.a #>GOOD_DECREMEKT.xl ;dc we have a valid sync .: 

" . ; i set good sync . decrement value 

. ' . jcq. <_rdec_40 • .■ . ^ 

; We are .here because the sync did net match.; 
; Increment the number of bad syncs found.. 

bset «NO_SYNC.y:<ctlflgs ■ . :set indicator to skip ancillary data 

move #>BAD IKCREMENT.xl ;8et the bad match increment value 

add xl,b " «>BAD_LIMIT,xp ; increment the number of oof's ■ 

.• t set limit value to restart 

cmp ■ xO.b ;8€e if at the limit 

• jit " <_rdec_50 • . • ; we. are not. so keep going 

nop 

nop- ■ . '■-:'*;. 

nop 

■ nop . ■ . ' . ■ 

^op ' ■ ".*.•■■%. 

;we*ve sensed too many sync pattern failures in succession 

TOO_MANY_SYNC.ERRORS_DCD 

;;\!ilrmicrmus^/ ; jmp;" ' ' . <re8tart , ; • . at" error limit, so ref rame :.. 

; We* are- here because a valid. sync was found. 
;■ Decrement the number of bad-syncs found.. • 

-*'^*"^-*?'g^-. . xl,b" -decrement the number of oof s '- 

: . b*' . #o.xl- ' - ; see If at the. limit . . 

■ tit xi/b ". . . ■'■ ; ■ ■'• ■ 

_rdec_50^^^ . ^.^j ; save the current oof counter ' 

.;get the sytem. header ..infc • 

• jsr-* " ' <getsyst . ' ;get,. system header info . 

; see if the frame header' sample rate code matches ^determined samplino rate 
; If the sample rate codes match a good sync, then the voof counter is 

■• ; decremented. ' ' ' ' " ■ ^' : 

; If the codes don't match, .the voof . counter is incrementea.. . 
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;: If the vocf counter is incremented past an upper limt, we have tc 
■'; .dD the auto selection again since perhaps the. sampling rate has changei.. ■ 

move y:svesmpl,a ;get code from frame header.. 

. move y:smplcde,xO . .;gcc code determined by framing . 

move... ytvopfib ■■;get current « of vcof's- 

cmp xO.a . «>GOOD^DECREMENT.xl . . ; is a valid san^le rate code 

* •'.'"■■.■.• ..■ ; t 'set good, code decrement value.- 
jne <^cic_smpl_05 . ■ ■ we don't that's bad' 

■; now check the frame header ID that matches the sample rate 

'■ \ move,. " y:sveidbit,a . / /get ID from frame header 
■ . move . '■• y :smplidbi.trXO ;get ID determiend- by framing- 

. cmp.- ..- • xO-.a. -.'see if • a match- " 

jeq ■■ <_ck_sitq?l_lO-. • ; .;if we. do that' s- -good . 

^ck__smpl^05 • ■ 

; We are here because there was nc match of the. sample .rate codes. 
. ; Increment the number of unmatches. found. 

.move # >BAD_INCREMENT . XI . ;set the bad match increment value 

■ add. xl,b " «>3AD^LlMI7,xO ..-increment the number of voof 's - 
: ■ * • .; &■ set limit value to restart . 

cmp. xO,b see 'if- at ".the limit ■;■ 

.. <_ck_smpl_20 • • ■ . ;we .are. not , • so" keep gbing\- 

■; » J i.dbg ■ 
" • ■■ nbp"^." 

T.O^. , *:* 

nop ■'• . ■ 

nop 

nop* ' -. ' 

• Idbg 

jmp ■-. <restart .-;,= • . ;.at- error limit so. restart 

: We are here because a valid sample rate was found in the frame header. 
; Decrement the number of unmatched .sample. rate codes . 

_ck_smpl 10- • 

" ^ sub xl.b . . . ;decremer.t the aumbier of vobf's 

tst. b . . »0,xl .-see if at the limit 

tit .xl,b . . •. ■ ■;if l«ss than xerc. set'to zero : 

■ ck smpl 20 ^ . ". . ' 

" ~ move' b,y:voof ; save the current voof counter ... 

••see if the frame header CRC protection code matches determined protection code 

If .the codes match, then the pocf counter is decremented. 
; If the codes don't match, the pocf counter is incremented. . . • 
; If the poof counter is incremented past an upper limit, we have to.. 
;-ds the.auto. selection again since perhaps the CRC protection has changed.' 

move' y:poof,b '■ ' ..-get current #.of' poofs 

move . #>GOOC_DECREMENT,xl . ;S€t good match decrement value .' 

r verifv the CRC PROTECT setting versus auto sampling:. 

. if the frame header shows CRC protection.- 
; .• ■ . verify auto sample alsc indicates protection.-;. • ' 
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. ■ jset . #PRCTECTiy:<ctlflgs._ck_proc_00 '.-if prsteci ■.. check auis- 

; frame shows no protection. 

.'if auto sampling also found no protection,' 
;\ .go to decrement the poof counter- 

! otherwise, force protection and assumiB a bit error 
. and increment the ppcf counter • 

. . ' jset #0.y:<protect, ckjrpt_lO ; ;if match; decrement poof - . • 
; bset .' ■ #PROTECT,y:<ctTflgs- .;sef the CRC applies bit 
jmp . <_c)c_prot_05 ;go to increment poof for the bad match 

_ck_prot_0.0 ; 

..•frame shows protection. ^ 
;■ if auto sampling also found protection, continue 

otherwise, force no protection and assume .a bit. error " 



:clr 
bclr. 



and increment the pocf counter 

#C . y : cprotect . _ck_prot_ld ; if match, decrement poof 

•PROTECT. y:<ctl figs " ; clear the CRC. applies bit 



•^ck_prct_OS. ■ ' • ■ 

; We are here because there was no match of the CRC protection codes. 
; ; Increment the number of unmatches found. , 



move 
add ■ 

cmp 

jU 

;:::dbg 

nop 

nop . . 

. ■ ^-P ■ 
;'. nop 
• . ■ nop 
filtdbg 

,. jmp 



»>BAD INCREMENT. Xl 

xl , b * «>BAD_L1MIT, xO 

xO.b . 



<restart ^ 



;set the^bad match increment value' 
.'increment the number cf poof's 
; Si set limit value to' restart 
;see if at . the limit • 
;we are not. so keep going 



;at error 



imit so restart 



.; we are here because a valid CRC protection code was found in the frame header. 
; Decrement the number, of unmatched CRC protection codes.; 



_ckjrot_;0 . 
. * ■ ■ . . .sub 
* . "tsf - 
".. tit 

■_ck_prot_20 
" move 



xl.b. 
b 
xl,b 

•J ■ - . • ■ 

b.y:poof 



«0.xl 



.•decrement the number of poof's 
.;see-if a.t the limit * 
■ ;if' less 'than.- zero, ■ set to zero 



;save tne current pocf counter. 



.;if there is CRC- 16 protection on the frame: 
; set the CRC-16 checksum bit count for the old ISO method: 
a. header bits covered by any type of frame 

plus bits for the left channel also apply, to any, type cf frame 
; b. set bits for possible right channel based en. frame type . 
.;. c. if not MONC.add bits for. right channel- : .• 

d. '.save old ISO. bit. count . for this" frame .. 
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;clr *PROTECT,y:<cclflgs._rdec_€0 .if no checksuni, gei a:iocaiic 



move 
move 
jset 
add 



_rdec 52 



move 

baet 
bclr. 

jsr = 



rdec 60 



lldbg 
! !dbg 



move 

."jsr 

move 
move 
jsr 

move 
move 
move 
jsr 

jclr 

3mp 



baet 



#>CRC_BITS_A*CRC_BITS_B,a .. 

<t>CRC3BITS*B,x6 " " :biz count for right channels 
#STERE0_V8_M0II0, y : <ct If Igs , _rdec_52 
xO, a , .. • * 



a,x:crcold 

WATCH DOG 
WATCH^POG . 

<geccrc 



«SBIndx,rO . 
cgetbal . 

#SBits,rO 

«S3Indx.rl 

<ge;C8bits. 

#SBndSKF.rO 
#SBits.rl 
#SBIndx,r2 
<getsKf 



; since its stereo, add for right chanr.e: 

.;8et che old ISO CRC-ie bit coiint 

tickle the "dog ■ ' • ! 
■; tickle the dog ;- " 

;get checksum, from frame . 



..•address of sub*bahd indicies 
;get bit alipcations 

; address of SB bits airray 

; address, of sub-band indicies 

;get the 'sb bits' . 

.•address of the SB scale, factors 
; address of SB bits array, 
/address of sub-band indicies 
;get scale factors 



ftPROTECT. y : <ct If Igs . _rdec_70 
< rdec 70 



;if no checksum, get data pts 



WATCH DOG 



; tickle the dog 



«USE_SAVED,y:<ctlf lgs,_rdec_70 ;do nctrecheck saved frame' 
<chkcre . .. " ; check the validity of frame 

#REFRAME,y:<ctlflgs.reframe ;if too many bit errors, reframe 
#REFRAME,y:<ctlflgs,_dbg_dsb_ ;if too many bit- errors, reframe 



• jset 
:sr 

• 3set 

.. nop 

nop. . 
. nop -. 

nop . ^ 

nop = 

TOO MANY BIT ERRORS DCD 



^dbg^dsb. 



Jclr «USE.SAVEP.y:.<ctlflgs._rdec_65 ;if valid, continue with frame 
jclr . ..#USING_SAVED,y.:<ctlflgs._rdec_S5 ;if saved, valid, continue ; . 



on crc_error led dcd . 
on"alarm led"dcd' 



TST SET ALARM RELAY DCD, set.led D 
SEt"ALA5« REIAY DCD** ' • 



/light crc error alarm' led 
/light alarm led indicator 



^■set led D ' - : • 

. " -SET LEDS DCD • . .■ 
.• INTERRUPT^HOST.DCb 

: ■ ■ :cir 



turn the alarm relay oii. • 
set the.leds as needed ■ .' 
«rRAME_SAVED,y:<ctlflgs,_rdec.80 /else failied.. if no saved;.frar:e. 
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bclr 
move 
move 
move 



: output zeroes and try again . 
«FRAM2 SAVED, y:<ct:flgs :clear Since we used the. saved frame 
. ?else. set up last saved frame 
••word offset was.= saved 
;bit offset was. .saved; ■■• 



^savebuf ,n6 
yiwrdof f ,r6 
y:bitoff ,a 



jmp 



<_rdec^3.0 



^_rdec_€5 



6rF_CRC_ERR0R.LED_DCD 
bclr . WATCH^DOG 



;go back and dc last frame again 

.;turn off the crc error alarm led 
; tickle the dog' 



_rdec_70.. 

-^aw,. the oroper led for the type of framing: 
- 'iull ste^oV Dcint stereo, dial channel or mono 



3 set 
jset 



USTEREb vs MOKO,y:<ctlflgs,_rdec_53 
« JOINT^FRAMING , y : < ct 1 f Igs . ,r dec^S 1 



; if mono 
.,-if joint 



stereo 



OFF MONO LED_DCD 
OFF^ JOINT LED_DCb 
ON STEREO^l-ED^DCD 
jmp <Irdec_55 



51 ■ ■ ■ 

■ ' " .OFF_MONC_LED_DCD 

- OFF_STEREO L£D_DCD 

. ON J01NT_I£D_DCD 

jrop <_rdec^55 

rdec -Sa-; * ^- • " 

OFF STEREO LED^DCD 
. off" JOINT IED^DCD ' 
ON MONO LED.DCD 



•turn off the mono led- indicator 
turn off the joint stereo led indicates 
; light the stereo led indicator 



; turn off the mono led. indicator 
;tum'off the stereo, led indicator 
;liaht the joint, stereo- led indicator 



•turn off. the stereo led indicator 
itum off the joint stereo led indicator 
; light the mono led indicator 



_rdec_55 



SET IiEES DCD - 
INTERRUPT.HOST^DCD 



.set the leds as needed 



;test If the fade controls are applicable 



move 
■tst ; 

move 
move 
TST.SET 
tst 

cmp 

tgt 
' sub 



FADE 00TPUT_DCD,_fade__5 
"yifadecnt.b"" 
b.. ■-■ Il>l.x0 .... 

<'fadeJ3...: 
yTfade.a 

U >FADE_SOFTEST , yO 
FADE DOWN DCD,_fade_l 
-a- " ^TfADE.START.UP 

< fade 5 . ■.- -.^^ 
xl.a #>FADE_INCREMSN 



xl.a 
xO.a 



«,FAPE.FRAMES.b 



.if fade not requested, continue 
'get fade frame counter 
;test if ready tc fade (fadecnfOJ 
*; k set to decrement frame count 
; not ready yet . go decrement 
•get current fade, value 
;get maximum fade down range 
; increment to soften output 
xl test if at loudest fade up , 
; & get test, for max start fade va.ue 
; if at loudest, Continue 
: xO ;test if above max start fade. 
!• 6t get scale factor increment 
Uf heeded, set start fade up 
.•adjust louder for this frame 
• u set frame coun- to next decrement 
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cmp 
add 



fade 2 



; score new fade SKF. adjust value- 



vO.a .'#> FADE INCREMENT. xO 

< fade' 5 • • ■ ' " ''-'f ^- softest • continue 

xO.a " «>FADE FRAMES, fc .-adjust softer for this frame ;■ 

. . ; ; set frame count . to next • aecreme nt- 



fade 2 



.«*de.3 



move' 
sub 



_f.ade_4 



a.v:fade^ 
< fade 4 



xO,b' 

b,y :fadecr.t 



move 
_fade.5"- ' 

;if 1st frame align the ptrs for the pclysynthes 



; save the new fade : SKF adjust value 

; decrement- frame., counter 
;8ave the new fade, frame counter 



jset 
move 

. bset. 



#FIRST_TIME, y : <ctlf Igs , _rdec_57 



\,rdec.57 



move 
move 
move 
•Tsr • 

•:!sf 



. r7.r0 
■■<alignptr . ■'. 
#r IRST^TIME , y r <ctlf Igs 

«SBIndx,r:J 
#SBndSKF,r2 
#ASMData , rl 
<getdata ■ 

<getancdata 



; align the read ' write pcfs . 
;set ptrs ■■ 
; indicate ptrs have been aligned 

;sb indicies 
;get the scale factors 
;S€t A share mem of rec samples 
;get the sub-band data 

;proces's ancillary data 

•maintain the frame counter of successive .frames with the old CCS CRC-16 
chec^iuir -oupled with ancillary data decoding problems. 

; MPEG.-ISO decoding or vice ^.^t-^v* . " ' : 

■ ; The.GOcf counter is never allowed tc go. negative. 

/-.'move. • ,V:<ioof,b;^ 'V'^*" current !! cf doof's . ■ " 

/ A saved frame is not 'included in maintaining the docf ; s counter . ■ - 

" jset ■ «usE_SAVED;y:<ctifigs,.rdec^i50 ■ •;; ^; y 

;chec)c .if a problem with old CCS CRClS algorithm coupled with 
; - a problem With ancillary data.. . 



move 
' move 
jclr 



#oldccs,rl 

ll>GOOD DECREMENT, xl 

i»2,y:UlK..rdec.l40 



;addr to test . ancillary data probler. 
;to decrement error frame counter 
; if no. ancillary data error, decremer 



here "because there was; ah ancillary ;<tati probleV.cld CCS ■CRC:.i€; 
s . increment the number sf bad frames . ■ ; ■ 
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•ITS- 



. ; 1 ! idbg 



^dd- i:^=renient: the^ number =5 s 

add x.,b ^ i*>BAC.LI«:t,xC . ; increment the number sf docf"^ 

. ^ \ ■ •■ set limit value te r«fira^» * 

i?? i.n ;8ee if at the liT..t 

<_rdec_150 f . .;we are* not., so. keep, going. 

: • nop ' ..." ;* ■' .• '.. -.'.•..'■.*•■. 

*. -nop- ■ •■*•• 
nop \ 

;rsframe it toe many ancillary .data problems in succession. ■ • 
"toc^many^datverrors dcd ■. ■ ■-• ■ v.. 

; We are here because the ancillary data decoded ok 

: Decrement the number of ancillary data problem frames found. 



rdec 



140 

sub 
est 

tit 



^rdec^lSC 

" .. move 



xi;b 

b ■ 
xl,b 



»0.xl 



; decrement the number of doof's 

;see if at the. limit 

;if less than zero, set to zero 



:b.y:doof 



. ;save the current- .doof counter' 

!nc?l^'**=--^^??'-^^*S-''2 no checksum, no reason to save 

•..#USE_SAVED.y:<ctlflgs._rdec_72 ;did not use a saved frame 

;do- not. reuse a saved frame 



jclr 



bcir 

jmp . 



«FRAKE_SAVED,y:<ctiflgs ; clear we have a saved ftame '-ac 
<top . ** - 



rdec 72 



.•since we had a good new frame, check controls for long solid opera- ior 
; restart the counter of frames with bit error " 
; and adjust count of framing retries, that control reset needed 

;2erc bit successive bit error counter 
; & to decrement counter every frame 
;get framing try counter" 
.-decrement counter every frame * 
rk zero bit error counter 
■rsee if counter, reached zero** - 
not . continue 



^rdec_75 



_r decree 





• b ■ . . #>l,yO . 


.. move 
• .sub .. 


y:frtries,a 

yO,a b,y:biterrs 


tst 

• . clr '• 


.; a ■-"'•■.'■' 
<_rd€c^7S '■ ■ 
a*" .*"■'.'; 


75 




move 


a.y:frtries. . . . • 


jmp . 


. <top ' ' -l ... 


8C ■ 

C-rF MOKC LED DCD ■ 
- C?F_JC:XT I^D DCD" 



;zero framing tries • 

;save the reduced framing tries ctr 
;do next frame - : 



;turr. cf f the mono lei. indicator 
;turn cf f- the 3Cint,stcrec led.i: 



tats: 



SUBSTITUTE SHEET (RULf 26) \ 



wo 96/32805 



PCT/US96^4835 



, 0FF_STERE0_I-2D_DCD; 
■ ■ • SET I*cDS_DCD . * . 

INTERRUPT.HOST^DCD 

;mute. the current frame . 



jsr 
jnip. 

end 



<muteout 
.<top 

start 



ytura off the stereo led indicator 
;set the leds as needed 



;niute the output buffer. 
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ic) 1991. Copyright Corporate. Computer Systems/ Inc. All rights re.seryed. 

\U1U)CDSYN\get5bits.asm: Ben's mux 

■ -.-title • 'Get., SB "bits' ■ 

• This routine is used to get ' the SB bits of each cf the sub -bands . . 

■^on entry . ■ ■ ; ■. ■. 

. • rO • address of the bit. SB array' 

rl - address of the SubiBandlndex. array 

r6 ■ current offset in the input array - 

n6 • base address of. the input array 
: y:<maxsubs - MAXSUBBANDS at sampling rate and bit rate 

y:sc • shift count of current input wrd 
..x:crcbits -accumulator of bits covered by CRCr 16 routine 
.."(bit coded for SBits are' accumulated) 



on exit 

r6 - 

. y:sc 



updated 
- updated 



a « destroyed 
b « destroyed 
xO « destroyed 
xl » destroyed 
yo « destroyed 
yl o destroyed 
rO » destroyed 
rl « destroyed 
r4 ■ destroyed 
n4 - destroyed 

include 'def.asm' 



org 



phe : 



b. 



.•initialize: . 

; a. number of frame bits for a sub-band SBits index value 
nO offset for right channel s\ib-band SBits values : 
left channel from 0 to. (NUMSUBBANDS - 1) 
right channel from NDMStTBBANDS to ((2 * NUMSUBBANDS) - I) 
nl offset. for right channel sub -band bit allocation values: 
left channel f rom .0 to (NUMSUBBANDS - 1) 
right channel from NUMSUBBANDS to ((2 • NUMSUBBANDS) —1) 



getsbits 



move «NSBITS,n4 

move «NUMSUBBANDS , nO 

move #NUMSUBBANDS.nl 

move x:crcbit8/r5 . 

move n4,n5 



;set number of bits to get 
;SBits offset-right channel \ 
;bit alloc offset -right channel 
;get CRC-16 bit counter 
; to. accumulate. CRC-16 bits . 



;loop through the sub- bands extracting the left and right; (if applicable)' 
;SBit values values (y:<maxsubs - fixed count of sub-bands framed) : , 
; process, the right chaumel : 

; a. fcr current sub -band: get the left channel allocation index value . 
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b. if Che left channel Index ■ is' zero,: -go to" inserc a zero SB^tsvalue 
c otherwise extract the SBits. value for left channel cu^rer^ sub -band 
and go. to insert value into the SBits . array . . . ™"en. sub- band 



. do • . y:<maxsubs, gets 90 

move ' X: (ri);,b .. . . . " • 

• tst . .;; ■ b- • 

■ . ■ • .gets^io • . ' \ ' . 

jsr get value 

. move ' #>MASKNSBITS,xl . 

and ■ xl,a . (r5)*n5 

jmp .gets_20 ; . 



;.get left index for subband 
;test index for not coded (0) 
;use value of zero if not 
;get a sb value 
;mask for sbits from getvaiue 
; mask off hi order one's 

accura' bits for CRC-16 rtn 
;go to store ,SBit5 value 



; insert O" for the lef t ' chaniiel SBits value' for this sub-band . 
/^gets^io 

* ■ . ■. ■■■•^o index use .zerof. 

;roove the left cha|Tinel SBits value to the SBits array 
_gets_20= 



move 



al,x: (rO) .\ 



;process the right channel ; 

^ ^ f? >S"?"k.^''^^^^^^^^ right channel allocation index value . 

, t>. the right channel index is zero, go to insert a zero SBits value - 

: ^n5*^^r' value for right channel of current s^- band 

and go to insert, value into the SBits array oma 



move . x: (rl+nl) ,b 

tst ■■ ' ' b ." 

. jeq . _gets 30 

jsr ■ getvaiue ' ' . . * 

move ' #>MASKNSBITS,xi 

and XI, a (r5)*n5 

jmp ;. _gets_40 



;get right index for subband 
;test index for not coded {0} 
;use value of zero if not 
;get a sb value 

■■••mask for sbits from getvaiue 
;mask off hi order one's . 
; & accum bits for CRC-16 rtn 
;go to store SBits value 



; insert 0 f or . the . right channel SBits value for, this sut-band 
;^gets_30 



clr 



; no index use zero 



;move the right channel SBits value to the SBits array 

.•increment SBits array and bit allocation index arrays for next sub -band 



._gets_40 



move 
move 
move 



_9ecs_90. 



move 

• rts 



al,x: (rO^nOr 
(rO)^ 

.(-rl.)* : 



r5,x:crcbits 



7Store updated CRC-16 bit counter 
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opt 'fcmex ^ ' '■ . ■ 

;..(cJ 1991.. Copyright Corporate Computer Systems. Inc. All rights reserved. 
•; \URDCDSYN\getskf^asm: Ben's mux". 

title 'Get Scale Factors"^ 

i'This routine is used to get the scale factors of-each.of the sub -bands.. 

; 'on entry " ' '. • ' - ** ■ ' . ' - 

; rO • address of the bit scale factor array (x memory) 

. rl • address of the bit- SB array ix memory) 

; r2 - address of the bit. SubBandlndex array (x memory) ; . . 

; r€ - current offset in the input array 

n6 - base address of the input array 
; . y:<maxsubs « MAX5UBBA2IDS at sampling rate and bit rate 

..... y:-sc. ■ shift count of current input.- wo.rd; 

; on exit 

; -. rfi 'a .updated 

• . y:sc •« updated*- 

'■; " :: a - destroyed; 

..b • destroyed ' 
.;xO.- a- destroyed . . 
".; . ■ ■ .xl « destroyed- ■ 

■ yO •» deistroyed • 
••■ yi B destroyed 
:•; rO' - destroyed."- 

■ ; .' r4 •» destroyed .. 

; . - n4 » .destroyed . 

include .'def. asm' 
include 'box^ctl. asm*: 

org phe: ' 

getslcf.. . ■ ■ ■ 

.; initialize : . ■ . ^ " ' 

; number of frame bits for a sub-band scale factor index v^lue 

move «SKF,n4:.: ;set number of ^bits to get ^ 

move .. #0,nO. ; scale facts offset -left chan. 

;tesr the scale factors "for. certain tolerances: 

zero scale factor is equivalent, to a bit error, :.. 

■■ indicate NO zero scale factor 
;b. clear the channel overload led indicators . 

bclr ■#SKF' ZERO,y: <ctlflgs- • - , . . 
OFF LEFT OVER_LED_DGD - 
OFF^RIGfff^OVER^LED^DCD . 

V'i loop through the. sub -bands extracting the left and ^^f^*^ 'i^f *PP^^"^^^^ 
•.-scale factor index -values .(y:<maxsubs - fixed count of sub- oands framed) : 
•within the sub-band loop is a loop for botn channels: lef: then right 
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process' Che lef^" channel":' " ■ • • 

-a.- nC cffsec for left channel sub-band scale factor index values:- 
■ left channel from 0 to (J7UMSUBBANDS*NPERGR0UF 1) 
right channel from NUMSUBBANDS^NPERGROUP 

to ((2 * NUMSUBBANDS*NPERGROU?i'-..l: 
nl offset for left channel sub-band SBlts values : • • . • ' ; 
• ■ left channel from 0 to (NUMSUBBANDS • • 1.) .. 
■ right channel f row NUMSUB BANDS to ( f2* NUMSUBBANDS) - 
n2 offset for left channel sub -band bit allocation values: ^ 
left channel from 0 to (NUMSUBBANDS - .1) 
right channel from NUMSUBBANDS . to ( (2 * NUMSUBBANDS > -1) 



b. 



do y :<maxsubs,^g€ts^?0 

move. . #0 , nl 

move ' #0r n2- „ . 

bcir ULEF T vs RIGHT, y ; <Ctl figs 



;SBits offset-left channel 
;bit alloc offset -left channel 
; lef t is current channel ... 



; process a channel for the current sub-band: 1st left then right 

; a. update the register pointer with the offset into the scale factor : ■ 

; index array for the left or right channel 

; b. get the bit allocation . for the proper channel to .see if . any factors at all 



do ... »NUMCHANNELS . .get s_e C 
..move (rO)+nO 
move X: (r2>n2) , a 



;of fset -for proper channel 
;get the SubBandlndex [SubBand] 



; first checJc if sub -band contains anything to work on. 
; be zero if there, is no- energy, in the. sub-band. 



This value could 



tst a X: (rl*nl) , a 

jne _gets_05 



;see if any alloted bits 
? there were 



; no bits were allocated, so set the scale factors to 63. .1 could :ust 
; set the scale factors to anything for. this case, but I set them to the 
; lowest iacutllly, 63 is one lower than, the lowest! scale factor. 

.-get lowest scale factor value" 



move 


|t>63,al 


move 


ai;x:(rOU 


move 


.al.x: <rO)t . 


move : 


al,x:(rO)* 




*_gets^40 


_gets_05 

" ■ ■■ • " 


a ;• , , ♦>l,xO 


■.■■:ne 


_gets_10 



;SB — C 
; set xO 



sbit code '00' case where must get all 3. scale factors 



for this sub-band 
to sbit code '01' 



do 
:sr 
move 
and 
" move 



. «3,_get3_a ; 
getvalue* 
»>MASKSKF,xl 
•xl.a ; 
al/xi (rO)* 



.;maslc for scale factor hi ord ' 
;mask off high order one's 
; save in SubBandSKFs [SubBand: ll] 



^gets_a 
_gets_i: 



mp 



_gets^4P 



SUBSTITUTE SHEET (RULE 26) 



BAD OFUGINAL 



wo 96/32805 



PCT/US96/04835 



-184. 



jne" . ■ j3ezsj2Q . 

sbiccode '01' case where must 

jsr getvalue 
move ; #>MASKSKF.xi . 
and . xl,a 
■ move • • al,x: (rO) ^ 
. move al,x:.{rO)* 
jsr gee value 
move #>MASKSKF,xl 
, and ■■ ... - xl.a- . 

move . . al.x: <rO) - . - 



; sec 



• 1 

xo 



5 sbit : 



sub- band 
ode • ll- 



get Che second two. scale factors 



;get SubBandiSKFs iSubBand] [ij 
:;mask for scale factor hi ord • 
;mask off high order one's " 
;save in SubBandSKFs fSubBandJ [CJ 
;save m SubBandSKFs [SubBand^ 
;get SubBandSKFs ISubBand] [2i ' ' ' 
.-mask for scale factor hi ord 
;mask off high order one's : 
;save in SubBandSKFs [SubBand] [23 



•■.?ets_2C 
/" ■ cmp 

; St It code ' 

jsr 
move 

.move. 
' jsr ' 
move . 
and ' 
■ move ■ 
move 



jmp 



'«gets_30 



cmp 
jne 



xO, a 
_gets_3 0 



#>2,x0 



;SB — 3: for- this sub-band 
; set xO to sbit code 'lO' 



11' case where. must get the first two scale factors 



getvalue , 

#>MASK5KF«xl 

xl.a 

al/x: (rO)* . 
getvalue 
:«>MASKSKF,'-xl 
xl*a 

al;x:(rC)* 
al.x: (rO)*. 

_gets_40 



;get SubBandSKFs [SubBandJ :o] 
.? mask for scale factor hi "ord 
;raask off high order one's 
;save in SubBandSKFs (SubBand J [C] 
;get SubBandSKFs f SubBand] [IJ 
/mask for scale factor hi ord ' 
;mask off high order one's 
;save in SubBandSKFs [SubBand] [a' 
;save in SubBandSKFs [SubBand] [2^ 



xO,a . 
_gecs_40 



sbit code * 10' 

jsr 
move 
■ . and 
■ 'move 
. • move 
' move' 



'"SB 2 £or this sub-band" 
case where must, get- the first -factor 



getvalue 
«>MASKSKF.Xl 
"xl/a 
al,x; irO>* 
ai,x: irOi- .: 
al,x: irO)*. 



;get SubBandSKFs (SubBand] (c; . 
.-mask for scale factor hi ord 
, ;mask off high order one's 
;save in SubBandSKFs (SubBand' [C; 
.-save in SubBandSKFs (SubBand; ^l] 
;save in SubBandSKFs (SubBand 1 [zi 



;set. up for the right' channel: . 

; a. backup the SKFs array for the left channel 3 scale factors indices 
; ..fc. no offset for right channel sub-band scale factor index values-* 
; , left channel from 0 to (NUMSOTBANDS*NPBRGROUP - i) 
' . / ^ • 2:igh: channel from NUMSUBBANDS^NPERCROUP 

^ - V. / ^ . ♦ NUMSUBBA2OS*MPERGR0aP) I. 

• otrset for right channel, sub -band SBIts values: ■ 

;• . -•• left channel from 0 to CNUMSUBBANDS - i; ' • 

, -*9iit: channel . from NUMSUBBANDS to ((2 • NOMSOBBANDS' - * 
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; ..dl n2 offset for right channel sub-band bit allocation values: 

left channel from C to (NUMSUBBANDS 1) 
; . right channel . from NUMSUBBANDS to .( (2 ♦ NUMSUBBANDS) • 1)^ 

_gets_40 ■ • " ^ . 

; back up for the .3 scale . factors and while doing it test. for: 
;• • a. zero. scale factor* 

b. overload scale -factor z ' ■ ■ 



move ; 


■ y: f ade.yl ' . ' . 


. ;get current fade value. 


do 

move 


. #NPERGROUP._g€t3_4 0_e 

x:- (rO) »a " r. . :, 




add 


yl,a «>€3,yO . 


; apply scale factor fade 
. ; & set maximum scale factor 


.tst 


a • . #>OVERLQAD_SKF,xO . ; 




jne-. 
bset 
move 


gets . 40 a ' ■". " .. 
#SKF_ZERO.y:.<Ctlflgs : : . 


; 1/4/94 do not set .bit error . 
; 1/4/94 set .scale factor . to €3 




_gets_40_d 





;.test for. an overload; and if so. set channel led 

. ; NO overload, test for max 



_gets__4 0_a 

■ . cmp 

;. jge 



xO,a 

_gets_40_c 



.-overload sensed, set which channel . led 

. jset #LEFT_vs_RlGHT..y:<ctlflgs,_gets_40jb ■ 
. on_left_over_led2dcd 

nop 
nop 

nop . . 
• nop . ■ ' . 
nop 



i : !dbg 



jrap 



_gets_40_c 



; test for max SKF 



gets 40 b 

. " ON right_over_led_dcd 
;il !dbg " " . 

■ nop • • 

." nop. 

. nop ■ . 
nop 
nop 



; ! ! !dbg 

_gets_40_c 
cmp 
jle 
move 



yO,a. : 
_gets_40_d 

yo,a 



;test if greater 63 

;if less or eq, use current 

:;if so, .set to 63 ■ 



«gets_4 0_d ■[ 
" move 



a,x: (rO) 



-jrestore scale' f actor^ 
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move 
move 
. move 



#LErr_vs_RIGH7, y : <ccl*lgs 
#NUMSUBBANDS*OTERGROUP, no 
tfNUMSUBBANDS.nl 
^NUMSUBBANDS. n2 



.•indicate current channel 

ij?*^ offset. right chan 
'w?J^*i?^^"$:''^5ht channel 
;5it alloc off set -right channel 



set up for. the left channel;©* the. - 



;after processing the right channel, 
f. next sub-band: 

.; a., reincrement rO for scale factor arrav hv frtT• >^^« ^i«-. ^ ^ - -V 
; . b, to., reposition the scale f actor'index^aSay rom'r!ght W^o ll^l^'lL ^ 
: we put the negative offset in nO «™ ^^J^gnt oacjc to left channel 

'i" d".^™!!!!!^? SBits value array for the next sub-band . 

; .d.. increment the bit allocation index array for. the next sub-band / 



.^gets^ec*. 



■.move- ; ilB/nO 
■move ;(rl?* ■ 
"move. (r2 ) - ' . 
move {rO)*nO 

move « -NDMSOBBANDS*KPERGROUP/nO " 



SETJJEDSJDCD 
rts- 



; scale facts offset -right chan 



;show overload conditions. 
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' . ■ opt- ■ ■ f c. mex 

(cr. 1991:' Copyright .Corporate: Computer Sysce^^^ Inc. All rights reserved. 
\URDCDSVN\getsws.asm' .." 

•.. title' ■-. 'Get. decoder external" switch settings'-' . . ." 
This routine is. used to, interpret the external switches on the" box ' . . " 
on exit " " 

.x:tstrate • raw bit rate input from' the switches ' 
x:tstsell -raw application of line 1 select switch ' ' 
x:tstael2. • raw application of line 2 select switch 

: xitstfrmt • frame communication formatting*. . 
x:t5treed ■ Reed/Solomon encoding switch" 

x;tsti3aud - raw ancillary data baud rate input from the switches 
■ . y: <not_appl • bit 4 set if any. switches changed . / 
destroyed:. 

.register a ' ;•. 

■ include- • def . asmv" • 
• ■ . . include . 'box_ctl. asm* 

* ■■ section highmisc ■ . 

xdef. ... selectl •. ?cur rent setting of line 1 select switch 

,.- xdef ■ select^2 .■ ■ •. . .-current setting, of line 2 select switch 

xdef . cstrate.tstsell/tstsel2;tstfnnt,tscreed.tstbaud,tstmeth 



■ org ' . 


■ xhe: . 




stgetsws_xhe 






select 1 


ds 


■ 1 


selects 


ds 


1 


tstrate - . 


ds 


1 


tstsell 


ds 


1 


tstsel2 


ds 


■ 1 


tstf rmt 


.- ds . 


1 


tstreed 


> ds" . . 


1 


tstbaud 


ds ■ ■ 


1 


tstmeth 


ds 


1 



.•current setting of line l 
; current setting of line 2 
;raw bit rate input 
;raw application of 
; raw application of 
;raw frame comminucatipn formatting 
; Reed/Solomon encoding switch 
;raw ancil data baud rate input from switches 
; raw code for diagnostic vs normal operation. 



select switch- 
select switch 
from the switches 
Line 1 select switch 
Line 1. select switch- 



endgetsws^xhe 
endsec 



erg 



phe: 



.getsws 



bclr" [ #4,y:<not_appi .-indicate ho changes initially 



clr 
move 
move 
move 
move 
. move 
move 



; a . . 

a, X: tstrate 
a>x : tstsell 
a,x:tstsel2 
a, x: tstf rmt 
a, X: tstreed 
a, x: tstbaud 
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. move. a.x:cscnieth 

•/check Che dip switches to. determine frame bit raie ■ 
and ancillary data application and data baud rate: 

/switches, for framing bit ' rate ;■ ; 

• " GET_BIT_RATS_DCD-.- : /: -'v- " "V" ; • ^ ' " ' ^ ■ 

-. /switches for framing type code and ronp.. output . 

■■■GET^FRAMEjrYPE^DCD 

. /switches to set if selecting line 1. and/or line 2 v: 

GE7_SEL£CTED_LINESJDCD . ■ . \ ; ' 

■. /switches fcr ancillary data baud race.,.".; 

' get_baud_rate_dcd' • 

/switches .for method of . operation, normal audio or diagnostics ' 

• ■■■ GEt^CIAGNOSTICSJDCD'. \. .. 

move . xttstrate.yl. : /look for. a change in framing rate 

move ■ y:rawrace^a- 

cmp yl.a . x:tstsell,.yl • , ./set. up to test line i selection 
jne ■ • _gsws^80 .. 
.'move x:selectl,a- 

. cmp ,..yl,a : x:tstsel2,yi /set up to test line 2 selection 
jne • _gsws_8.0. 
•• * move. . x:select2Va . 

cmp . yl.a x:tstfrmt;yl , :/set up to test framing format 

jne ■ '^gsws^SO 

movie ■■ y:f rroformat.a • 

cmp . yl,a . x: tstreed.yl.- . /set up to test' Reed/Solomon switch 
• jne . • •.' ^g8wfi_80' 
•• ■ ■ "move. . y:ree3solomon. a ". .. 

cmp . .yl,a x: tstbaud,yi .. . /set up to test ancillary data baud 
jne • ■ •: _gsws^80 
■'. move . y:baudrtera 
[ cmp ^ - yl, a. ■ ■ • ■'.'-;"■■■■■•'..* ^ .. • 

vjne ■ _0sws_8O . • 

/see if we have to switch from hormal- to the diagnostic method of operation 

■ move ■ •■' x:tstme"th,a . ;get the diag nostic code 

■" tsf a . /see if other than normal operation 

j.eq _gs;ws_90 . . ^ /normal operation; continue. 

'^^sws^aio ■' 

" bsec , «4,y:<npt_appl . /indicate changes in external switches 

■ ■ _gsws_90 ' • '-. ■< ^ ' -y '■ 
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opt.', fc.mex' — ^ :• 

; (c) . 1991. Copyright Corporate Computer Systems/ In^ All rights reserved. 
; \uraaDSYN\get sync. asm: Ben's mux 

■'■ /.title . /'Get' Sync' . f \ 'V- 

.; This 'routine- gets the sync word.'* '• : 
; on-exit ■ 

; :. aX a right justif ied sync value padded cn right, with zeros . / 
■ • - -■ ; r6 « updated 

.; .". '. ■ y:sc - updated :,. .. . ' 

;.. ! . . ' a2- « destroyed' • ' 

_ ' ■ al destroyed' •'. ■ 
■ ; . -bo destroyed 
■;- .xO • destroyed:. 

■ ' ; ' . xl •destroyed-' . 

-yo - destroyed 

■ . - ;• yl • destroyed- 

; • . ; r4 destroyed.;. 
• ■ ^4 - 'destroyed • 

• ■ include ■ ' def-.asm' 

. org \ phe: .. ■ ■ - ' ' * 

' -getsync 

■move #NSVNC,n.4 .;number of bits 

• jsr getvalue . ;get sync right justified. 

. move #>GETSYNCMSK.xl ; ; ;mask for sync word hi order 

. and xl,a ;mas)c off any high order I's 

■ ' rts • - / .v ■■ ■■ ,' ■• ■ ' - ■ 
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opt 



; <c) 1^9i. Copyright Corporate . computer Systems, ihc:.. All rights reserved. 
] \ORDCDSyN\getsystd.asm! set led f or MPEG-ISo" vs old CDQ2pO0/CPO10^^^^^ '■ ' 

■ ' ■■■ title ;Gst .Syst'-."" • " : :.: 

;. This routine decodes. the HUSICAM frame header information. 



on 



exit 

x:findidbit 



yrCtlflgs • updated 



xtfndbit / 
X: fndsn^i ; 
y:bitsf rm , 
.' xrpadbit . 
y :privacybit . . 
y:frmtype 
yisibound 
y :maxsubs 
y: copyright 
y: original 
y: emphasis 
x:AllwAdd 
x:skftbl 

a > destroyed 

b - destroyed 

xO - destroyed 

xl » destroyed 

yO -destroyed 

yl - destroyed 

■ ro - destroyed 

rl - destroyed 

r4 -destroyed 

n4 ■ destroyed - 



l-high sample rate, Oolow sample rate 
(PROTECT bit: 0 "YES for checicsum, 1«N0? 
{STEREO vs MONO bit: 0«8tereo. l«monor ' 
(JOINT FRWiiNG bit: O«not. 1-jcint). 
. (SPLIT^MONO FRAME . bit : 0-nc, l-yes),.- 
bit rate co3e 
sampling rate code-' 
actual frame . length in bits ' 

Osframe not. padded. l>frame padded w .8. added bits 

privacy bit value in frame header 

stereo, joint stereo, dual mono or mono \ 

joint stereo intensity boundary subbanfi count 

number of sub-bandis encoded in BAL's 

copyright bit value in frame header 

original/home bit value in frame header. ... 

emphasis value, in frame header 

address. of the Allowed table to use 

address of the BAL's bit table to use-. 



by get value call 



include 
. include 

org 



'def-asm' 
'box^ctl.asm' 

phe: ." • 



getsyst. . 

..-decode the bits 0 thru. 3 of the frame header: 
■ bit ■■ description . • 

•■ [ '^r^^hl^'oriow^s^ ;,;and 32 K sampling rater 

; ^ 0 . low rates. 24. 22.05 and 16 K. sampling rates* 

1 V 1-2 .'MCSICAM.X-ayer: 
:^ ; ■ 11 - Layer I ■ 

; ■■. 10 - Layer . II 

01 • Layer.- Ill ■■.•*• - : 
CRC-'c checksum frame header protection: 
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0 » cnecKsum proceccioh encoded afcer frame header 

1 ■ HO checksum protection " ■ ' 



move . «NSYSTHDR_1 , n4 



;get field «l (bits 0-3 in hdr) 
; bit 0 indicates protection checicsum 
; . 0 • yes checksum. included 

. 1 « no checksum included 
;get data right justified 
;mask for getvalue of header field 1 
;mask off high order bits 
J & set len of bit rate-bits 4-7 m hdr' 
?default that CRC protection applies 

?see if CRC bit set indicating not appi 

#0,y: <not_appl, gsyst 00 ;hdr shows zero, CRC is included 
«PRCTECT,y:<ctlTlgs " - ;set that CRC protection NOT applicable 



jsr getvalue 

move - «>MASkSYSTKDR l .xl 

and XI, a »NB:T^T£.n4 

bset « PROTECT . y : < ct 1 f Igs " 

move - al,y : <not_appl 



bclr 
^gsyst_CO 

I set the high or low sampling rate ID code 

. bset ' #0.x:fndidbit . . ; default, with high sample' raite bit on 

iset #3,y :<not_appl._gayst_01 ;if set for high, continue 

bclr. «p,x:fndi3bit . " : reset to low sample rate, bit. on 

^gsyst^Cl . 

; decode the bits 4 thru 7 of the frame header: bit rate 



jsr getvalue 

move . *>MASKNBITRATC,Xl 

and: xl.a y :spltrte,.xl 



?get bit rate code right justified 
;mask for getvalue of frame bit rate 
;mask off high order bits 
. ; & get the 1/2 bit rate code 
;save header bit rate code 



-..move 'al,x:fndbit . • 
;test for CDi320GO split mode of transmission, and check for a split mono frame 
bclr . #S?LiT_MONG_FRAME.y:<ctif Igs '; clear indication for split mono. 

:#SPLI?_MOpE.y:<ctlflgs.._gsyst_05 .-test for. split, mode of trans 



.3.clr 

move, 
cmp' 



al,a 
xl,a 

^gsyst^OS 



.•clean up junk after getvalue 

;8ee if frame rate same as split rate 

; if. not; we should have a full frame 



";since we matched bit rates, this must be a 1/2 bit rate in mono 

bset #SPLIT_MOKO_nyaffi, y: <ctlf Igs ; indicate for ancillary data 

_gsyst_05 

; decode the bits 9 and 9 of the frame header: sampling rate . • 

move l$NSAMPLERATE.n4 ? eat sampling rate : 

Tsr getvalue .;get sampling rate right justified . 

- move #>MASKNSAMPLERATE.xl. . ;mask for getvalue of data sampling rate 

and . xl.a #NiSYSTKDR 2.n4 ;mask off high order bits. 

■ ■ ■. a set- len field «2 ■ (bits 10-11 in hdr: 

■ -■ ■*;. move"' .' - al-.x:fndsmpl • • -isave the .header sample rate ; 

.■decode the. bits io and il of the..frame header: .■ 



SUBSTITUTE SHEET (Fl!.'i= 26) 



\ 



BAD ORieiNAL ^ 



wo 96/32805 



PCTAJS96/04835 



" ;■ ■ bit description ..- 

■;■ * 10 , padding "bit : 

. 0 - frame "is noc'padded .' • 
' 1;.- frame is padded wich 8 bits •*- 
.; . 11. -.privacy.. bit. 

'^"^ padded flag in header /(bit 10) and update frame bit count 

jsT . .getvalue. . ; './get data right justified 

move . *#>MASICSySTHDR_2.xl- . .. ■ • 

and . XI, a . #>PAD~SL0T;x1 ;. ; mask off high order bits 

' V * & .get the padded bits added to frame 

... move al,y:<not^appl, ; see if frame padded- bit set 

i« '^et the unpadded frame bit count 

bclr ,#0.xspadbit ..^.- ■ ■ . .default that the frame is not pidded 

illl l^'l-"^^^'-^^^^^-^' ^' ^^'^ '^^^ padded bxts 

bset #0,x:padbic ^ , .-indicate padded bits * . 

. xl,.a y ■ ..'«dd pad bits to frame bit. count ." 

.-gsyst'^O's ■ . 

; set the frame length in bits fnormal or padded with 8 bits) 
;?et the frame, privacy bit in header (bit 11) 

move a,y:bitsfrm .-store actual- frame bit count 

..... bclr #0,y:privacybit v default the frame header privacy bit 

... CLR_PRIVACY_BIT^DCD , in decoder- status ■■ ■■ P^*""**^ .^^^ 

jclr #0,y:<not appl, gsyst 08 

■•clV'nr.r.rt^^^L^l^lJ^ frame header privacy bit 

SET_PRIVACY_BIT_DCD ..; in decoder Status. 

_gsyst_08 ; 

;decode the bits 12 and .13 of the frame header: frame type 
; . ..00. m FULL STEREO • . (2 channels) , • 
; .. 01 = JOINT STEREO {2. channels) 
; ' 10 - DUAL MONO (2 channels) 

; 11 « MONO ■ (1 channel) 

move. : #NFRAMETYPE.n4 .; get frame type (bits 12-13 in hdr) 

jsr getvalue . ;get frame.type right justified 

move . #>MASKFRAMETyPE.xl ;mask for getvalue of framing type ' 

and .. . xl, a. #NSTlNTENSITy.n4 . ;ma8k off high order bits \ 

; get stereo- ihtesity {bits 14-15) 
move . al,y:.frmtype : ■. ": .-. ..- ■ ; ; save. -type- of frame 

;aet the default MAXSUBBANDS as .for. 2 channel f rameis ^ . . . 

move «61dccs,r0 ' : ;to test if .old CCS .CDQ frames . 

move y:maxsubs_2,yl .: ;default .to 2 channel MAXSUBBANDS 

;. if. the old CCS flag is set to idecode from old CCS CDQ's, use mono MAXSUBBANDS 

jclr .#0.y: (rO) ._gsyst_09" . ;if MPEG-ISO, continue 

move . y:maxsub6_I,yl " ^default to ..MONO MAXSUBBANDS ■ 

_^syst_09".^ '-rv'-. .• 

.;set the. type- cf.' frame flag.'.' 
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. \ move . 
. move 
.. ' ' cnip .' 

-.:.••*■'• j ne ; " 
.bclr 
V ■• bclr- 
.-■••jmp 

_gsysc_lO ■ ' 
• cmp.- 
Jne- 
; bclr 
bsec 
-. jmp . 

- ._gsysc_20; ■ ■ 
cmp 

■ '■ ■ jne 
^bclr" 
. bclr 
- ■.. • • jmp. 

_gsyst_30 
~- bset 
bclr 



y:£rmcyp€,a 
- .#>FULL STEREO, xl ' 
xl.a «>JOIKT_STEREO.xl. 

gsyst 10 . " 
f STEREO^vs MONCy : <ctlf Igs 
# JOINT^FRAMING, y : <ctlf Igs 
_gsyst^40.: 



XI, a #>DUAL.xl •• 

gsyst 20 ■ . 
SSTEREO vs MONO, y:<ctl figs 
. #JOINT_FRAMING.y;<c-lflgs . 
_gsyst_40"- 



xl,a . 

; gsyst 30;' 

iSTERES vs MONO, y : <ctlf Igs 
. #JOINT_FRAMING,y:<ctlflgs 

^gsysc340 



#STEREO vs MONO, y:<ctlf Igs 
# JOINT^FRAMING, y : <ctlf Igs : 



get the frame type 



/indicate stereo samples 
;clear joint stereo indicator 



r indicate stereo samples 
r indicate stereo samples 



;dual channel is same as stereo 

? indicate stereo samples * - 

; clear joint stereo indicator ' 



.'indicate mono samples 
.•clear, joint stereo indicator 



; set the MAXSUBBANDS for MONO channel frames 



move y:maxsubs_l,yl ; get to MONO MAXSUBBANDS 

;:if .SFL:T_M0N0_FRAME, use split frame mono MAXSUBBANDS 

;. jclr #SPLIT_MONO_FRAME,y:<ctlflgs,_gsyst_4 0 ' 

' mpve y:spltinaxsubs,yl . ; get to split MONO MAXSUBBANDS 

_gsyst_40-' . • 

;set the number of sub-bands encoded in the BAL' s 



move yl , y : <maxsubs 



;set the working MAXSUBBANDS for frame 



light led to indicate MPEG- ISO compatible frames . - 

. or old CCS CD02000/CDQ1000 non- conforming frames at low bit rates 



move 
nop 
jclr 
CN_MPEG, 
jset 
jset 
move 
move 
move . 
move . 
cmp 

'jeq- 

cmp 



#oldccs,rO ■ . ; 

#0.y: (rO) , iso led 

ISO vs ccs""lsd"dcd 

"#X,y: (rO) ,2do Teds 
#STERE0^V3_MONO, y 
#>SAM48K.X0 
#>SAM32K,Xl 
#>BITRATE_56,yO ' 
yrsmplrteTa 
xO,a . #>BITRATE_ 

tst bit 
.xl.a" . fr>BirRATE_ 



V ;to test if old CCS CDQ frames. 

.;if ISO, set led as* ISO 
; indicate old ccs frames 
;if CDQIOOO, set led as CCS 
<ctlflgs._iso_led ; if MONO. ISO led 
;test for 48 K sampling 
;test for 32 K sampling 
■;low bit rate code 56 K 
;to test sample rate code; 
96,yl ;see if 48 K sampling 

; fii set hi bit rate 96 K ® 4B 
. ;if 48. test bit rate range 
160. yl :;see if 32 K sampling ' • ; 

;. & set hi bit rate 96 K « 32 . 
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3ne 



est bit 



move 
cmp 
jit. • 
cmp 
jle 



ISO led. 



y:bicrace.a 
yO , a 
i soiled 

do leds 



iso led 



OFF MPEG ISO vs CCS LED DCD 



ri'f not 32.. sec- ISO led 



; check bit rate in the range 
;test vs lowest ISO high code 
;if less, ISO led 
;test vs highest ISO high code 
; if less or equal* leave CCS led 



; indicate isb compatible frames 



do leds 



SET_LEDS_DCD • 

; decode the bits i4 and 15 of the frame header: 

; mode extention (joint . stereo intensity boundary) 

00 « stereo for sub-bands 0 thru 3, joint for sub-bands 4 and up 

.; 01 = Stereo for sub -bands 0 thru 7, joint for sub-bands B and up 

; 10 ■ stereo for sub-bands 0 thru 11, joint for sub-bands 12 and up 

11 » stereo for sub -bands 0 thru 15. joint for sub-bandS: 16 and up 



.. : 3sr 
. . move . 
and" . 

. move 
move" 
cmp 

• "cmp. 
jne 
; move 
imp 

_gsyst_80 
" . cmp 

•jne--, 
. '[■/ move 



getvalue . 

# >MASKSTINTENS ITY , xl 
xl,a «BOUND 4,r0 



;get data right justified 
;mask for getvalue of intensity bound 
;mask off high order bits 
; & set up for joint just in case 
#JOINT_FRAMIN«3f,y:<ctlflgs._gsyst_90 .-intensity is meaningless 



al , a • • ■ • • 
#>INTENSITY 4^b 
a.b INTENSITY'S, b 

_gsyst_90"- ■ ' ' . , ' .• ' 

a.b ■ r>INTENSITY_12,b . 
■ gsyst 60 • . ; 

iBOaND^8,rO ... 
_gsyst~90 



a,b #BOUND'16.rO 
gsyst 90 r ' ■: . 
.iBOUND"l2.,rO ., 



; clear off any junk ■ 
;get code for channels. 4-31 intensity 



not joint, intensity .is meaningless 



not joint, intensity is meaningless 



_gsyst_90 

■'■^ move rO , y :sibound . 

;decode the bits 16 thru 19 of the frame header 

; ' bit description • 

■ ; • ' .16 copyr.ight bit: " " 
; 0 - no copyright 

1 - protected by copyright 
; 17 original/home bit: 
;. . .. . 0 - bitstream is a copy- 

; 1 » bitstream is an original 



; save intensity stereo sfub -band bound 



.16-19 emphasis: 
. 00 

"01 
Mo 



no eimphasis • 
50/15 thicrosec emphasis . 
'reserved 
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11 CCITT J. 17 emphasis.' 

#NSYSTffi>R_3 , n4 ' ;gec field #3 (bits 16-19) .' 

getvalue " v ;get .data right justified . 

#>MASKSYSTHDR_3,xl . . ; to mask iff unwanted bits .. 
xl^a ~ v. /mask off the unwanted bits 

al,y:<not_appl ' . .;move to addr to be tested 
a. ■ . ;to ^restore y:<not_appl as all O's 

;ser the copyright bit, original/home bit and emphasis code from header 

• bclr ' #0,y: copyright . ; default bit as not . set 

. . CLR^COPYRIGHT_BIT_DCD ; in. decoder status ' 

. jclr , #3.y:7not"appl,_gsyst_91, ;if bit 16 not set; continue 

bset «0,y: copyright: . • jset the copyright bit . 

SET_CGPYRIGHT_BIT_DCD in decoder status " 

._gsyst_9i ■ ■; . ■ ,'■ 

" bclr «0,y:original . /; ;default bit .as not" set 

CLR_ORIGINAL_BIT_DCD ; in decoder status 

jclr : «2,yT<not_appl,_gsyst_92 ;if bit 17 nor set,, continue-. " 

bset 4tO,y: original . ;set the original/home bit * - 

= . SET_ORIGINAL_BIT_DCD ; in decoder status. 

_gsyst_92'. 

move a ry: emphasis ;zero the emphasis code 

CLR_EMPHASIS_BIT_0_DCD • --^-in decoder status ■ . 

. CLR^EMPHASIS^BIT^l^DCD . " ;in decoder status 

jclr #l,yT<not_appl,_gsyst_93 ;if bit 18 not set, try bit 19 

bset #l,y:emphasis ~ ■ . .. " ;set bit 1 of emphasis code . 
. SET_EMPKASIS_BIT_1_DCD .-. ;in decoder status 

_gsyst_93 . . : '- 

" jclr #0,y :<not_appl,_gsyst_94 ;if bit 19 not set, finish up. 

bset #0,y lemphasis ~ . - ^ ;set bit 0 of emphasis code 
SET_EMPHASIS_BIT_0_DCD . \ . ; in decoder Status . . 

_gsyst_94 / 

restore y:<not_appi to all zeros 

move a,y:<ttot_appl ; reset the dummy variable 

;Set the proper Allowed cable and BAL's bit table addresses: 
;test.for low saiq)ling rate Allowed table 

move . #sroplidbit,rO .. ; addr of frame header ID bit (0 « low) 

.'. : nop ■^ ■ ■ ■ ' . 

. . jset . #0,y: (rO) ,_gsyst_95 ' .;if high rate,. select Allowed table . 

move ^Allowed 3,rO ; . . ;addr cf low sampling allowed table 
move ■ #skftbl_3,rl ;addr of low sampling BAL's bit table 

jwp . ^gsyst^lOO . . . ; . ;go to store . Allowed table address 

_.gsyst_95 

;Set the proper Allowed table address based on working MAXSUBBANDS .{y:<maxubsV 
;.- if : iess.- than 27,. .used' caJole 2 • 



move . 
jsr 

move-;..* 
and 

"move ' 

."■■.'clr . . 
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riove y : <maxsub8 , xO . 

move . #>27,a 

move : -' «slcf tbl^l . rl 

cmp . xO,a . #Allowed_l.rO 

jl« " _gsyst_lOb 



;g«t current MAXSOTBANDS 
;to see. which of 2 tables .applies • 
;addr of high sampling BAL*s -bit table 
;see if need the low bit rate table 
; & set up as regular Allowed table • 
; regular Allowed table applies 



; select the lower bit rate Allowed . table 



move <lAllowed_2, rO 
move . iiskf tbl_2,rl 



;addr of ' high . sampling. BAL' s bit table 



•jsyst^^lOO',"-. . 

;set the address fof . the selected. Allowed table . 
;8et the address > of the selected BAL's bit table 



move 
move 



rO.X:AllwAdd 
rl.x:s)cftbl 



rts 
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opt -- - ■ fC • ' . • 

; (c) 1991. Copyright Corporate Computer Systems. Inc. All rights reserved.. 

■ \URDCDSYN\synth.asm 

title 'Synthesize a group e£ sample and output audio' . . 

;.synch.asm; this is the main of the. poly synthesis routine 
;. it handles a new group of samples to be decoded and inverse quantized 
for stereo a group of samples contains 192 samples (96 left & .96 . right) ' 
if mono a group of samples contains . 9(5 sanvples only ; 

include' 'def. asm' •'• 
. include -'box^ctl. asm' / - 

.. "-section highmisc ■ * . .- 

xdef . ■ ■■ dual Chan 

synthN€Save ■ ■ . 



■ • 5tde£. 

org'.; 
8tsyhth_yhe 

dual Chan 
synthNfi Save , 



enasynth^yhe : 
■ endsec 



yhe: 



ds 
ds 



.'control for channel swap ctls- 
; instead of ssh . 

;bit 0 ■ 1 means copy left to right 

1 means copy right to left . 
1 means swap left & right 
1 means mute both left & righc 



;bit 1 
;bit 2 
•bit a 



syhth 



org 



move 
move 



phe: 



#dualchan.rO. 
#A5MData*rl . 



;8et -addr 'of two chan ctls 
. ;position to. left channel 



;8ee if the frame is to be muted 

jcir ' #KUTE_LErT_and_RIGHT,y : (rO) .^synt^OO 
;set the number of words in both channels for the MUTE do loop 



move «NUMSUBBANbS •NF£R6R0UP« 2 nO 
move - ■ ■ #0, nl,- 

jmp «*y^^«2® 



;2 channels numb words to mute 
;hold position at left channel 
; go to the mute, loop 



?if a stereo frame/ checkout for special mute or swaps 
.. . .jclr . #STERE0_vs_MONO,y:<ctif lg8,_8ynt_40 . 



. move -#NUMSUaBANDS*KPERGROt;P.nl. 
■ move- • ' rl.rO ' 
' move • trD-^nl " 

• copy- the. left intc right- 



.•spacing to right channel 
.•position to left channel 
;addr of right channel 
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.-.do^ • • . #NUMSUBBAN'DS»NP2RGR0UF; synt 05 
-. move ■ x:.(rO)*,xO — • .~ . • 

move .. xO,x: (rXJ. ' - >' -^^i^e • 

... 'P"^. vaiue.iato right. * * 

.;;if we.do not . have- to mute ' a channel ■ (fncao^ -to. both) ■■ 
,; skip ahead- cc restore registers used 

jset; " #M0N0J50T^0TH,y:<ctlflgs,^ynt_^^^ ;out to both, go restore regs 
;set. the number of words in one channel for the niute do. loop 
. •; move #NUMSOTB^^ 
•■.;8et up to mute the .channel not ' selected . for nuano" output * V. J: 

move ' I^ASMData.rl . ■ .DOBirt«*^ i-.*. ' w • ■ 

.. : : . . . ■ : : i;- ■ ' , ■ ■ 

;if not. the lef r channel for output, continue 

;. else, position to the right channel, for muting ' • ,. 

: jset..:- -;M0N0_60T_CI»NHEL,yi«ctlflgs,. synt 20 ;if right 2 
. . mo^ . .#N0MSUBBANI».»IPEJW»0UP.r4 .^^^ ^ira thf ^ghnhi^el . 

■ -«ynt_2o \ • . ■* '. " - ; • ' 

;mute the : proper channel Ys)- 

• movr ■ ; to mate the- channel . - 

move .(rl)*nl - : ■.;addr of channel to mute . . 

do •■ , ■■ no, synt ao '^- 
move ; :x0,;:-<rl7. ^ ■.:; V . ;-^ -;.*ero value, in ihoseh ch - ■ ' 

_8ynt_;3a ■ 

W". -:...synt.90 •- ■ ■ 7" .";do the polysynthesis'^^ 

^synt^^C ^ . -i; 

.;see if the two channel frame requires, any swapping; 
■; ■ swap- left and. right ■ 
left .into right 
.'.right into left ' ■ 

jclr . • »SWAP_LEFT^andJlICHT/y: (r0J.^synt_50/' ;^ 
; swap -the lef. I and- right' channels 

move «NUMSUBBANDS*NPERCROUP.nl ■ /spacing to right channel 

move . rl,rO ' ;positicn to left channel^. 

. move ■ .; (rl,*nr . ; ;addr-;cf right' channel . 

.;,copy.the left. into right 

: do ■ ; • tNUMSUBBANDS^NPSRGRODP. ■ synt 45 ' -^^ 
.•••move x:(rO).xO- ■•. ■: ^ ; .;get left channel value 

move. :x:;(rl)-,xl/ ;g«t right ' channel value ^ 



SUBSTITUTE SHEET (RULE 26) A 



wo 96/32805 



PCr/DS96/04a35 



-199- 



move 
move 



xO'.x; (rlJ 
xl,x: (rC; 



•;put left- value' ihrb right- 
;puc right value into le£^ 



■ ;gb see if any channel mutes-. 



';8ee'x£ a copy the left into- .the "right 

jclr #CO?y_LErr_to^RIGHT,y: frO) ,_synt_60 ?i£ not copy left to.righ; 
;copy. the left, channel into .the right channel 



move #NUM5UBBANDS*NP£RGRCUP , nl 

move ri,rO 

move .(rl)*nl 

jmp.. .synt^70 



; spacing xo right channel, 
.-position to left channel 
;addr of right channel 
; do the copy 



•;sec if a copy the. right into -the lef t ■ - 

jcir «COPy_RIGHT_tc_;LE?T.y: (rOJ ._synt_80 ;if not copy right to left 
;copy the right channel into the left channel. 



move 
move 
nop 
move 



«NUMSUBBAND5*NPERGR0UP , nO 

rl.rO 



. _synt_7C ■ 
;Copy the one channel into the other 

#NUMSUBBANDS*NPERGROU? , >ynt_86 



; spacing to right channel 
- /position to left channel 

;addr of right channel 



dc 
move 
move 



Xi (rO-^.xO 
xO.x: (rl)< 



;get source channel value 
;put. source value, into destin 



. ^synt_80 • • 

; see if either channel is to. be . muted 
jmp - • ;_synt^05 
..^synt_90 . ' 

;pass both channels to the' poiysynthesis routine 



move 


«ASMData,rO 


move 


n€ /y :synthH6Save 


move 


.' #1023.m2 . 


move . 


m2,m3 


move 


". * #32, no . .. 


j«r ; ■ 


" polyaynt". V / 


move 


y:synthN6Save,n€ 



7 save 

;set to be a mod 11024) buffer 
; set to.be a mod; 1024) buffer 
;set scale .factor^ • 



•restore n6 
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move 
move 
move . 
move 



:y: linear • ml 
ml . m2 . 
ml,m3 . 
ml,m5 



• restore cp linear adores si r.g 
/restore to linear addressing 
.•restore to linear addressing 
.•restore to linear . addressing 



-rts 
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; .c:\musicam\dsp\acprn\iirdcdsyn\translte.asra^^.v . . 
- ' "include- AultmaStranslte. asm'. 



WO96/32805 PCr/US96rtM«35 

cuviyg ^., ' 

/What iS' claimed, is: 

1. An audio transmission system comprising: 

' a coder for coding an input audio signal into 
5; a digital signal to be transmitted through a 

traditional analog telephone network , the digital 
: signal having i transmission rate of 28, 8 kilobits 
/ per^second: or--;iesfs;' 'and;.;-." 

a decoder for decoding the digital signal that 
10 is received form the telephone network to provide 

an output audio signal with . a frequency range 
greater than- 4 .'.kilohertz-.- 
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